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SEQ 1 



1 .REM ! 

2 

3 

4 

5 

6 

I 

0 

9 
10 
11 
12 
IS 
14 
15 

16 IDENTIFICATION 

17 

18 

19 

20 PRODUCT CODE: AC-M72C-nC 

21 

22 PRODUCT NAME: CZOHHCO DHll AUTO -ECHO TEST 

23 

24 DATE: JUNE 1985 

25 

26 MAINTAINER: NAC SOFTWARE ENGINEERING 

27 

28 AUTHOR: G. BAISLEY 

29 

30 

31 

32 

33 

34 

35 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

36 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

37 EQUIPMENT CORPORATION. DIGITAL EOUIPt«NT CORPORATION ASSUMES 

38 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 

39 DOCUrCNT. 
40 

41 NO RESPONSIBILITY FOR THE U5E OR RELIABILITY OF SOFTUARE ON 

42 EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 

43 COMPANIES 
44 

45 

46 COPYRIGHT CO 1985 BY DIGITAL EQUIPMENT CORPORATION 

47 

48 
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1 PAGE 2 

2 

3 

4 1.0 ABSTRACT 

5 

6 VERIFIES THAT THE AUTO ECHO FEATURE OF THE DHll WORKS. 

7 

B 2.0 REQUIREMENTS 

9 
10 
11 

12 2.1 EQUIPMENT 

13 

14 POP-11 FAMILY STANDARD COMPUTER UITH 4KU OF MEMORY 

15 ASR-33 TELETYPE OR EQUIVALENT 

16 DHll ASYNCHRONOUS MULTIPLEXER 

17 OMll MAINTENANCE CARD INSTALLED 
18 

19 
20 

21 2.2 STORAGE 

22 

23 THE PROGRAM LOADS INTO 4KU OF MEMORY 

24 

25 
26 

27 3.0 LOADING PROCEDURE 

28 

29 THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES IS TO BE USED 

30 

31 

32 

33 4.0 STARTING PROCEDURE 

34 

35 
36 

37 4.1 CONTROL SUITCH SETTINGS 

38 

39 

40 

41 4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 

42 

43 ALL CONSXE SWITCHES OOUN 



SEQ 3 
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i PAGE 3 

2 
3 

4 4.1.2 TO nODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES AFTER 

5 PROGRAM RESTART 
6 

7 SUOO-1 
8 
9 
10 

11 4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 

12 

13 SWOl-1 

14 

15 

16 

17 4.2 STARTING ADDRESS 

18 

19 THE STARTING ADDRESS FOR ALL TESTS IS 000200 

20 THE RESTART ADDRESS FOR ALL TESTS IS 000200 

21 THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
22 

23 
24 

25 4.3 PROGRAM AND/OR OPERATOR ACTION 

26 

27 

28 

29 4.3.1 INITIAL PROGRAM START 

30 

31 

32 

33 4.3.1.1 LOAD PROGRAM INTO MEMORY 

34 

35 

36 

37 4.3.1.2 LOAD ADDRESS 000200 

38 

39 

40 

41 4.3.1.3 CLEAR CONSOLE SUITCHES 

42 

43 

44 

45 4.3.1.4 PRESS START 

46 

47 

48 

49 4.3.1.5 THE PROGRAM UILL TYPE "OHll AUTO-ECHO TEST' AND UILL 

50 THEN TYPE "VECTOR ADDRESS-- AND WAIT FOR AN INPUT FROM THE TELETYPE 

51 KEYBOARD. 



SEQ 4 
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1 PAGE 4 

2 

3 

4 4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR FOR THE 

5 DHll TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 

e 

7 

8 NOTE 
9 

10 WORDS IN ANGLE BRACKETS. I.E. <CARRIAGE 

11 RETURN> MEAN THAT THE TELETYPE KEY WITH 

12 THE NAMED FUNCTION SHOULD BE STRUCK 
13 

14 

15 IF AN INCORRECT ADDRESS IS ENTERED. THE PROGRAM WILL TYPE "?" AND WILL 

16 REPEAT THE SECOND MESSAGE OF 4.3.1.5 
17 

18 
19 

20 4.3.1.7 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-* AND WAIT 

21 FOR AN INPUT FROM THE TELETYPE KEYBOARD 
22 

23 
24 

25 4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 

26 OHli TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
27 

28 IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE AND WILL 

29 THEN REPEAT THE OF 4.3.1.7 
30 

31 
32 

33 4.3.1.9 THE PROGRAM WILL TYPE -R" TO INDICATE THAT IT IS ABOUT TO 

34 START TESTING. AND THEN TESTING WILL BEGIN 
35 

36 
37 

38 4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 

39 

40 

41 

42 4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 

43 

44 

45 

46 4.3.2.2 THE PROGRAM WILL TYPE "DHll AUTO-ECHO TEST" AND WILL 

47 THEN CONTINUE AS DESCRIBED IN 4.3.1.9 
48 

49 
50 

51 4.3.3 PROGRAM RESTART WITH SWOO-1 



SEQ S 
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1 PAGE S 

2 

3 

4 4.3.3.1 LOAD ADDRESS 000200 

5 

6 

7 

8 4.3.3.2 SET SUOl-1 

9 
10 
11 

12 4.3.3.3 PRESS START 

13 

14 

15 

16 4.3.3.4 THE PROGRAM UZLL PERFQRn AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 

17 

18 

1» 

20 4.3.4 PROGRAH RESTART UITH SUOl-1 

21 

22 

23 

24 4.3.4.1 LOAD ADDRESS 000200 

25 

26 

27 

28 4.3.4.2 SET SUOl-1 

29 

30 

31 

32 4.3.4.3 PRESS START 

33 

34 

35 

36 4.3.4.4 THE PROGRATI UILL TYPE "OHll AUTO-ECHO TEST" AND UZLL 

37 THEN TYPE -TEST PC-' AND UILL UAIT FOR AN INPUT FROM THE TELETYPE 

38 KEYBOARD 
39 

40 
41 

42 4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT UHICH THE PROGRAH IS TO BE 

43 STARTED FOLLOUEO BY <CARRIAGE RETURN> 
44 

45 
46 

47 4.3.4.6 THE PROGRAM UILL TYPE R TO INDICATE THAT IT HAS STARTED AND 

48 UILL START TESTING AT THE SELECTED TEST. 
49 

50 

51 NOTE 
52 

53 CARE HUST BE TAKEN UHEN THIS FEATURE IS 

54 USED. SINCE THERE IS NO PROTECTION 

55 AGAINST SELECTING AN ADDRESS THAT IS IN 

56 THE MIDDLE OF A TEST 
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SEQ 6 



1 

2 


PAGE 6 


3 
4 

5 


NOTE 


6 


IF IT IS DESIRED TO LOOP ON THE TEST 


7 


THAT IS SELECTED SET SU14>1 BEFORE 


8 
9 


ENTERING THE TEST ADDRESS 


10 




11 




12 




13 




14 


5.0 OPERATING PROCEDURE 


IS 




16 




17 




18 


5.1 OPERATIONAL SWITCH SETTINGS 


19 




20 


SU15-1. HALT ON ERROR 


21 


SM14-1. LOOP ON CURRENT TEST 


22 


SU13-1. SUPPRESS ERROR TYPEOUT 


23 


SUll-1, INHIBIT ITERATIONS 


24 


SUlO-1, ESCAPE TO NEXT TEST ON ERROR 


25 


SU09-1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 


26 


SUOl-1, START PROGRAM AT SELECTED TEST 


27 


SUOO-1. CHANGE PARAMETERS AT PROGRAM RESTART 


28 




29 




30 




31 


5.2 SUBROUTINE ABSTRACTS 


32 




33 




34 




35 


5.2.1 TRAPCATCHER C LOCATIONS 000000-000776) 


36 


37 


THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS AND TRAPS. 


38 


THE AREA FROM 000000-000776 IS LOADED WITH THE FOLLOWING SEQUENCE 


39 


40 


2 


41 


0 


42 


4 


43 
44 


0 


45 


772 


46 


0 


47 


776 


48 


0 


49 




50 


IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS. THE PROGRAM WILL HALT WITH 


51 


THE PC 2 GREATER THAN THE ADDRESS TO WHICH THE PROGRAM TRAPPED. THE 


52 


PROCESSOR STACK HAY BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS 


53 


WHEN THE TRAP OR INTERRUPT OCCURED. 
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I PAGE 7 

2 

3 

4 5.2.2 START (PROGRAM INITIALIZATION) 
5 

6 THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS. TYPES THE 

7 PROGRAM TITLE MESSAGE. AND INPUTS THE VECTOR AND CONTROL REGISTER 

5 ADDRESSES OF THE OHll TO BE TESTED. 
9 

10 
11 

12 5.2.3 BEGIN (PROGRAM START AND RESTART) 

13 

14 THIS ROUTINE IS ENTERED IMMEDIATELY AFTER -START" AND EACH TIME A 

15 PROGRAM PASS HAS BEEN COMPLETED. THE ROUTINE SETS UP THE PROCESSOR 

16 STACK AND STATUS WORD AND THEN TRANSFERS CONTROL TO THE TEST AT UHICH 

17 TESTING WILL BEGIN. IF SUOl-0 WHEN THIS ROUTINE IS ENTERED TESTING 
IS HILL START AT Tl (TEST 1). IF SUOl-1 WHEN THIS ROUTINE IS ENTERED, 
19 TESTING MILL START AT THE PC ENTERED FROM THE TELETYPE KEYBOARD. 

20 
21 
22 

23 5.2.4 EOP (END OF PASS) 

24 

25 THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS HAVE BEEN 

26 COMPLETED. THIS ROUTINE TYPES THE MAINOEC IDENTIFICATION CODE OF THE 

27 PROGRAM. CLEARS ERROR FLAGS AND UPDATES THE PASS COUNT. IF THE 

28 PROGRAM WAS LOADED UNDER ACTll OR OOP. THE ROUTINE CHECKS FOR RETURN 

29 TO THE ACTll OR DOP MONITOR. IF THE PROGRAM IS NOT UNDER MONITOR 

30 CONTROL. THE ROUTINE TRANSFERS TO BEGIN. 
31 

32 
S3 

34 5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 

35 

36 THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. THE ROUTINE 

37 CHECKS FOR THE FOLLOWING UPON ENTRY 
38 

39 1. IF SUlO-1. THE ROUTINE UILL TRANSFER TO THE NEXT TEST IN 

40 SEQUENCE. AFTER CLEARING ERROR FLAGS. 
41 

42 2. IF SUll-1, THE ROUTINE UILL TRANSFER TO THE NEXT TEST 

43 SEQUENCE, AFTER CLEARING ERROR FLAGS. 
44 

45 3. IF SU14-1, THE ROUTINE UILL LOOP ON THE CURRENT TEST 

46 REGARDLESS OF THE ITERATION COUNT. 
47 

48 IF NONE OF THE ABOVE IS TRUE, THE ROUTINE UILL ADO 1 TO THE COUNT OF 

49 TES' ITERATIONS. AND COMPARE THIS VALUE TO THE NUMBER OF ITERATIONS 

50 THAT SHOULD BE PERFORMED. IF THESE NUMBERS ARE EQUAL. THE ROUTINE 

51 UILL TRANSFER TO THE NEXT TEST IN SEQUENCE. IF THE NUMBERS ARE NOT 

52 EQUAL. THE TEST CURRENTLY IN PROGRESS UILL BE REPEATED. 
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SEQ S 



i PAGE 0 

2 

3 

4 5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 
S 

6 THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATELY AFTER THE CALL TO THE 

7 ERROR HANDLER IN THOSE TESTS THAT HAVE VARIABLE PARAMETERS. THIS 

8 ROUTINE IS ALWAYS ENTERED IN THOSE TESTS. WHETHER OR NOT AN ERROR 

9 OCCURS. IF SU09-1. THE ROUTINE UILL TRANSFER CONTROL BACK TO THE TEST 

10 AT A POINT WHICH WILL ALLOW REPEATING THE FIWCTION UNDER TEST 

11 CONTINUOUSLY WITH THE SAME DATA. IF THIS OPTION IS SELECTED. THE 

12 ROUTINE -SCOPER" IS NEVER ENTERED AND ITERATION COUNTS WILL NOT BE 

13 UPDATED. 
14 

15 
16 

17 5.2. 7 ERRORS (ERROR HANDLER) 
18 

19 THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. WITH ALL CONSOLE 

20 SWITCHES DOWN. THE ROUTINE PROCEOES AS FOLLOWS: 
21 

22 1. THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER IS 

23 ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION ITSELF 

24 IS FETCHED. THE 8 LSB OF THE EMT INSTRUCTION ARE THE ERROR 

25 CODE. THIS CODE IS USED TO ACCESS A TABLE OF ERROR r^SSAGES 

26 AND ERROR DATA STORAGE LOCATIONS. 
27 

28 2. IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY DURING THIS 

29 PASS. A COMPLETE ERROR REPORT IS MADE IF THE TEST THAT FAILED 

30 FAILED MORE THAN ONCE DURING THE CURRENT PASS. ONLY THE DATA 

31 RELATING TO THE FAILURE IS TYPED. IF SW13-1. NO ERROR 

32 TYPEOUT IS MADE. 
33 

34 3. THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SWlS-1 THE 

35 PROGRAM WILL HALT WITH THE PC OF THE CALL TO THE ERROR 

36 ROUTINE IN RO. IF SW15-0. THE PROGRAM WILL NOT HALT. BUT 

37 WILL CHECK FOR ESCAPE TO NEXT TEST. 
38 

39 4. IF SWlO-0. THE ROUTINE UILL RETURN TO THE TEST IN PROGRESS. 

40 IF SWlO-1. THE ROUTINE WILL ABORT THE CURRENT TEST. AND 

41 TRANSFER TO THE NEXT TEST IN SEQUENCE. THRU THE ROUTINE 

42 -SCOPER". 
43 

44 
45 
46 

47 5.2.8 TRPSRV (TRAP DECODE AND DISPATCH) 
48 

49 THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION THAT CAUSED THE 

50 PROGRAM INTERRUPT. AND TRANSFERS CONTROL TO THE ROUTINE THRU THE TABLE 

51 "TRPTAB" USING THE 8 LSB OF THE TRAP INSTRUCTION AS AN OFFSET TO THE 

52 POINTER TO THE ROUTINE TO BE ENTERED. 



SEQ 9 
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1 PAGE 9 

2 

3 

4 5.3 PROGRAM AND OR OPERATOR ACTION 

5 

6 

7 

8 5.3.1 PROGRAN START UITH ALL SWITCHES DOWN 

9 
10 
11 

12 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 

13 BEHAVIOR. 
14 

15 
16 

17 5.3.1.2 AFTER "R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION MILL 

18 BEGIN. EACH TEST MILL BE REPEATED A SELECTED NUMBER OF ITERATIONS 

19 (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) AND THEN THE PROGRAM MILL 

20 PROCEED TO THE NEXT TEST. 
21 

22 
23 

24 5.3.1.3 UHEN ALL ITERATIONS HAVE BEEN COMPLETED. THE PROGRAM MILL 

25 TYPE -CZDHH-C" AND THEN RESTART TESTING AT TEST 1 (LOCATION Tl IN THE 

26 PROGRAM). 
27 

28 
29 

30 5.3.1.4 IF AN ERROR OCCURS, THE PROGRAM MILL TYPE AN APPROPRIATE 

31 ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 
32 

33 
34 

35 5.3.2 PROGRAM START UITH SUOO-1 

36 

37 THE PRKRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 

38 

39 

40 

41 5.3.3 PROGRAM START UITH SUOl-1 

42 

43 

44 

45 5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 

46 

47 

48 

49 5.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED AND UILL 

50 CONTINUE AS DESCRIBED IN 5.3.1.2 



CZOHH-CO 



MACRO V04.00 27.JUN-85 13:04:20 PAGE 10 



SEQ 10 



PAGE 10 



1 
2 
3 

4 5.3.3.3 AFTER "CZOHH-C HAS BEEN TYPED. THE PROGRAM WILL RESUME TESTING 

5 AT TEST 1 
6 

7 
8 

9 5.3.4 PROGRAM OPERATION UITH SU15-1 

10 

11 SAME AS 5.3.1. EXCEPT THAT IN THE CASE OF AN ERROR. THE PROGRAM UILL 

12 HALT AFTER THE ERROR TYPEOUT. AND THE PC* 2 OF THE CALL TO THE ERROR 

13 ROUTINE WILL BE DISPLAYED IN RO. 
14 

15 
16 

17 5.3.5 PROGRAM OPERATION UITH SH13-1 

18 

19 SAME AS 5.3,1 EXCEPT THAT NO ERROR TYPEOUTS HILL OCCUR 

20 

21 

22 

23 5.3.6 PROGRAM OPERATION UITH SUll-1 

24 

25 SAME AS 5.3.1 EXCEPT THAT EACH TEST UILL BE REPEATED ONCE ONLY 

26 

27 

28 

29 5.3.7 PROGRAM OPERATION UITH SUlO-1 

30 

31 SAME AS 5,3.1, EXCEPT THAT IN THE CASE OF AN ERROR THE CURRENT TEST 

32 UILL BE ABORTED. AND THE PROGRAM UILL PROCEED TO THE NEXT TEST IN 

33 SEQUENCE, 
34 

35 
36 

37 5.3.8 PROGRAM OPERATION UITH SU14-1. OR SU09-1 

38 

39 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. SEE SECTION 

40 6.3 FOR THEIR USE. 
41 

42 
43 
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SEQ 11 



44 6.0 ERRORS 
45 

46 6.1 ERROR HALTS 
47 

48 THE ERROR MESSAGE FORHAT FOR ALL ERROR TYPEOUTS IS AS TOLLOUS 
49 

50 PC*2 MESSAGE 

51 HEADER (IF APPLICABLE) 

52 DATA (IF APPLICABLE) 
53 

54 WHERE 

55 PC*2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER » 2; 

56 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE: 

57 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW; 

58 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE. IF 
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SEQ 12 



1 PAGE 11 

2 

3 

4 THE SAHE ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS. AND IF DATA 

5 IS ASSOCIATED WITH THAT ERROR. ONLY DATA IS TYPE ON SUCCEEDING ERROR 

6 TYPEOUTS. 
7 

S IF NO DATA IS ASSOCIATED UITH THE ERROR THE COHPLETE ERROR MESSAGE IS 

9 TYPED. 
10 
11 
12 

13 6.1.1 ERROR DESCRIPTIONS 

14 

15 SEE LISTING FOR DETAILS OF ERRORS 

16 

17 

la 

19 6.2 ERROR RECOVERY 

20 

21 

22 

23 6.2.1 SU15-0 

24 

25 IF THE PROGRAM IS RUN UITH SU15-0. NO OPERATOR ACTION IS REQUIRED TO 

26 CONTINUE TESTING 
27 

28 
29 

30 6.2.2 SU15-1 

31 

32 IF THE PROGRAH IS RUN UITH SU15-1. TO CONTINUE TESTING AFTER THE 

^3 PROGRAH HAS HALTED. PRESS THE PROCESSOR CONSOLE CONTINUE SUITCH 

34 

35 

36 

37 6.2.3 ILLEGAL INTERRUPTS 

38 

39 IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED DURING PROGRAM 

40 INITIALIZATION. THE PROGRAM UILL HALT IN THE TRAPCATCHER. THE ADDRESS 

41 AT UHICH THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS TO UHICH THE 

42 INTERRUPT OCCUREO. THE PROGRAM MUST BE RESTARTED AT 200 TO RECOVER 

43 FROM THIS ERROR. 
44 

45 
46 

47 6.3 SCOPE LOOPING 

48 

49 

SO 
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1 PAGE 12 

2 
3 

4 6.3.1 TO SCOPE ON A SPECIFIC TEST. SET SW14-1 AND SH13-1. THIS HILL 

5 CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE SANE TEST. ANO WILL 

6 CAUSE ALL ERROR TYPEOUTS TO BE imiBITEO 
7 

a 

9 

10 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PATANETER UITHIN A TEST. SET 

11 SU09-1 TO FREEZE THE DATA. (SEE LISTING FOR THOSE TESTS THAT 

12 INCORPORATE THIS FEATURE) 
13 

14 
15 

16 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

17 

16 PERFORM SECTION 4.3.4 WITH SU14-1 

19 

20 

21 

22 7.0 RESTRICTIONS 

23 

24 

25 

26 7.1 STARTING 

27 

28 THE OHll TEST CARD MUST BE INSTALLED 

29 

30 

31 

32 7.2 RUNNING 

33 

34 NONE 

35 

36 

37 
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SEQ 14 



38 


8.0 MISCELLANEOUS 


59 




40 




41 




42 


8.1 EXECUTION TIME 


43 




44 


THE TINE FOR ONE PASS 


45 


OF TYPEOUT OF CZDHH 


46 


BELOW 


47 




48 


TIME 


49 




SO 


PROCESSOR 


51 




52 


PDP-11/05.10 


S3 




54 


POP- 11/20 


55 




56 


PDP-11/40 


57 




58 


PDP-11/45 



TO END 
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SEQ 15 



i PAGE 13 

2 

3 

4 

5 
6 

7 

8 9.0 PROGRAM DESCRIPTION 

9 

10 FIRST. VERIFY THAT AUTO-ECHO WORKS ON ALL LINES BY TRANSMITTING ONE CHARACTER 

11 WITH AUTO ECHO ENABLED. 
12 

13 THEN A BINARY PATTERN IS TRANSMITTED ON ALL LINES EXCEPT THE ON UITH AUTO-ECHO 

14 ENABLED. A SINGLE CHARACTER IS TRANSMITTED ON THAT LINE. ALL DATA IS VERIFIED 

15 TO BE CORRECT. 
16 

17 

18 10.0 LISTING 

19 

20 ! 
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SEQ 16 



1 
2 
3 
4 

5 
6 

7 

104 
119 
131 
148 
158 
167 
303 
339 
373 
520 
563 
595 
607 
652 
664 
691 
712 
743 
744 
745 
746 
747 
748 
TRAPS. - 
749 

CLEHH ENO OF PASS 
fCSSAGE. 

751 

752 

753 

TCH REGISTER' 
754 



: DHHAC-A - DHll MACRO LIBRARY 

I COPYRIGHT 1985. DIGITAL EQUIPMENT CORP.. HAYNARO. MASS. 01754 

.LIST ME 
.NLIST MC.MD.CND 



i 3 



i CMS REPLACEMENT HISTORY 

t *9 SKWCTSKI 26- APR- 1985 16:23:08 TKEO TYPO CAUSING ASSEMBLY ERRORS' 

» *8 SKOMETSKI 22-APR-1985 16:48:03 -TYPO ERROR W VECTOR CHNNGE CODE SOURCE FIXED- 

t •T SKONETSKI 22-APR-I985 16:26:04 -AOOED CODE TO SET VECTORS FOR PW FAIL. ETORS. AM) EMT 

: ^ SKQICTSKI 22-APR-198S 14:22:55 "FIXED SRANCM SmOR IN E10 OF PASS ROUTHC- 

; AS SKOICTSKI 22-APR-1985 08:28:54 TIXEO MG (Ml OCTASC NACRO CALL HAS MONG) M0 AOOED A 

t M SKONETSKI 18-APR-1985 14:20:15 'AOOED SOFTWARE SMHCM RGG SU»P«T. BUT UNTESTEO- 

I •! SrONETSKI 12.APR-1985 10:54:52 -FIXED PROBLEWS MITH SPURIOUS CR/LFS- 

t *2 SKONETSKI ll-APR-1985 16:00:24 'AOOED MACRO FRQtl SYSNAC.^ THAT SIZES FOR SOFTIMRE SUI 



*1 SKONETSKI 11.APR-198S 15:49:05 -LIBRARY FQR OHll OIRGNOSTICS* 
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SEQ 17 



2 
3 

5 000000 



000000 
6 OCOOOO 



.LIST ME 
.NLIST MC.MD.CNO 

.HEADER t/1972.1985/.t/0Hll AUTO-CCHO TEST/. t/CZOHH-CO/ 

I STARTING PROCEDURE 
{LOAD PROGRAM 
tLOAD ADDRESS 000200 
iPRESS START 

iPROGRAM WILL TYPE OHll AUTO-ECHO TEST 

iPROGRAM UILL TYPE "VECTOR ADDRESS-" 

iTYPE IN THE ADDRESS UF THE RECEIVER INTERRUPT VECTOR 

J FOR THE DHll TO BE TESTED. FOLLOWED BY <CAPRIAGE RETURN> 

J PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-" 

sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

;FOR THE DHll TO BE TESTED. FOLLOWED BY <CARRIAGE RETURN> 

;PROGRAM WILL TYPE «R" TO INDICATE THAT TESTING HAS STARTED 

lAT THE END OF A PASS. PROGRAM WILL TYPE " CZDHH-CO " 

iAND THEN RESUH TESTING 

-TITLE CZDhH-CO 
.ENABLE ABS 

.NLIST nc.no.CNO 

.LIST ME 

.svneoLS 



100000 
040000 
020000 
010000 
004000 
002000 
COIOOO 
000400 
000100 
000040 
000020 
000010 
000004 
0000C2 
000001 



: SWITCH REGISTER OPTIONS 

SWlS-100000 
SW14 -40000 
SW13-20000 
SW12-10000 
SWll-4000 
SW10*200C 
SWG9-1000 
SW08«400 
SU06>100 
SU05-40 
SU04-20 
SU03-10 
SW02-4 
SWOl-2 
SUOO-1 



i-l.HALT ON ERROR 
i-l.LOOP ON CURRENT TEST 
I •!. INHIBIT ERROR TVPEOUT 

1-1. INHIBIT HERATIONS 
)-l. ESCAPE TO NEXT TEST ON ERROR 
a-l.LOOP UHH CURRENT DATA 



{RESTART PROGRNH AT SELECTED TEST 
iRESELECT VECTOR AND CONTROL REGISTER 
t ADDRESS AFTER PROGRAM RESTART 



CZDHH-CO 
0 
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SEQ 18 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



177776 
015644 



005746 
005726 
010046 
012600 
034646 
022626 



; REGISTER DEFINITIONS 



R0-i(0 
Rl-i(l 
R^-i(2 
R3-43 
R1-i(4 
R5-tf5 
SP-i(6 
PC-it7 



{GENERAL REGISTER 
(GENERAL REGISTER 
I GENERAL REGISTER 
{GENERAL REGISTER 
i GENERAL REGISTER 
(GENERAL REGISTER 
(PROCESSOR STACK POINTER 
(PROGRAM COUNTER 



(LOCATION EQUIVALENCIES 



(SUR-177570 
(LIGHTS- 177570 
PS-177776 
STACK-EN0C00«200 



(CONSOLE SUITCH REGISTER 
(PDP-11/45 DISPLAY REGISTER 
(PROCESSOR STATUS UORD 

(START OF PROCESSOR STACK 



i 3 

: 4 
i 4 

i 3 



(INSTRUCTION DEFINITIONS 



PUSHlSP-5746 
POPlSP-5726 
PUSHRO- 10046 
POPRO- 12600 
PUSH2SP-24646 
P0P2SP -22626 

! MACRO HLT 
EMT 

.ENOM HLT 



{DECREMENT PROCESSOR STACK 
(INCREMENT PROCESSOR STACK 
(SAVE RO ON STACK 
(RESTORE RO FROM STACK 
(DECREMENT STACK TWICE 
(INCREMENT STACK TWICE 

lA 
tA 



WORD 
WORD 



1 000000 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



BIT15-100000 

BIT14-40000 

BIT13-20000 

BIT12-10000 

BITll-4000 

BITlO-2000 

BIT09-1000 

BITOS-400 

BIT07-200 

BIT06-100 

BIT05-40 

BIT04-20 

BIT03-10 

BIT02-4 

BITOl-2 

BITOO-1 

.CAlCH 



i 3 



C20HH-C0 MACRO V04.00 27-JUN-85 



000000 
000200 



000000 000002 

000002 000000 

000004 000006 

000006 000000 

000010 000012 

000012 000000 

000014 000016 

000016 000000 

000020 000022 

000022 000000 

000024 000026 

000026 000000 

000030 000032 

000032 000000 

000034 000036 

000036 000000 

000040 000042 

000042 000000 

000044 000046 

000046 000000 

000050 000052 

000052 000000 

000054 000056 

000056 OoOOOO 

000060 000062 

000062 000000 

000064 000066 

000066 000000 

000070 000072 

000072 000000 

000074 000076 

000076 000000 

000100 000102 

000102 000000 

000104 000106 

000106 000000 

000110 000112 

000112 000000 

000114 000116 

000116 000000 

000120 000122 

000122 000000 

000124 000126 

000126 000000 

000130 000132 

000132 000000 

000134 000136 

000136 000000 

000140 000142 

000142 000000 

000144 000146 



13:04:20 PAGE 17 



jTRAPCATCAER 

.-0 

.REPT 200 

.♦2 
HALT 

.ENOR 

.*2 

HALT 

.'2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.«2 

HALT 

.»2 



ILLEGAL INTERRUPTS 



I UNEXPECTED TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 

J UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
J UNEXPECTED TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIHO CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO PINO CAUSt 
(UNEXPECiED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK lO FIND CAl<SE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAHIfC STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIW) CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
lEXAHINE STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
lEXANINE STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAHINE STACK TO FIW) CAUSE 
iUICXPECTEO IRAP TO THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
lEXANINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIM) CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIW) CAUSE 
(UNEXPECTED TRAP TC THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
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000146 


000000 


HALT 


000150 


000152 


.*2 


000152 


000000 


HALT 


000154 


000156 


.*2 


000156 


000000 


HALT 


000160 


000162 


.*2 


000162 


000000 


HALT 


000164 


000166 


.*2 


000166 


000000 


HALT 


000170 


000172 


.*2 


000172 


000000 


HALT 


000174 


000176 


.*2 


000176 


000000 


HAD 


000200 


000202 


.♦2 


000202 


000000 


HALT 


000204 


000206 


.<2 


000206 


000000 


HALT 


000210 


000212 


.*2 


000212 


000000 


HALT 


000214 


000216 


.*2 


000216 


000000 


HALT 


000220 


000222 


.♦2 


000222 


000000 


HALT 


0C0224 


000226 


.*2 


000226 


000000 


HALT 


000230 


000232 


.♦2 


000232 


000000 


HALT 


000234 


000236 


.♦2 


000236 


000000 


HALT 


000240 


000242 


.♦2 


000242 


000000 


HALT 


000244 


000246 


.•2 


000246 


000000 


HALT 


000250 


000252 


.♦2 


000252 


000000 


HALT 


000254 


000256 


.«2 


000256 


000000 


HALT 


000260 


000262 


.«2 


000262 


OOOOCO 


HALT 


000264 


000266 


.«2 


000266 


000000 


HALT 


000270 


000272 


.♦2 


000272 


000000 


HALT 


000274 


000276 


.*2 


000276 


000000 


HALT 


000300 


003302 


.♦2 


000302 


OCOOOO 


HALT 


000304 


000306 


.«2 


000306 


000000 


HALT 


000310 


000312 


.♦2 


000312 


000000 


HALT 


000314 


0^0316 


.♦2 


000316 


000000 


HALT 


000320 


000322 


.♦2 


000322 


000000 


HALT 


000324 


000326 


.♦2 


000326 


000000 


HALT 



EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAU5E 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO 1HIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LKATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LKATION 
iCXAHINE STACK TO FIM) CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
lEXMONE STACK TO FIND CAUSE 
lUNEXPECTEO TRAP TO THIS LOCAIION 
lEXMONE STACK TO FIND CAUSE 
lUNEXPECIED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LKATION 
EXAMINE STACK TO FIM) CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO 1HIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
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000330 


000332 


.*2 


000332 


000000 


HALT 


000334 


000336 


.*2 


000336 


000000 


HALT 


000340 


000342 


.*2 


000342 


000000 


HALT 


000344 


000346 


.*2 


000346 


000000 


HALT 


000350 


000352 


.•2 


0003S2 


000000 


HALT 


000354 


000356 


.*2 


000356 


000000 


HALT 


000360 


000362 


.*2 


000362 


000000 


HALT 


000364 


000366 


.*2 


000366 


OOCOOO 


HALT 


000370 


000372 


.«2 


000372 


000000 


HALT 


000374 


000376 


.•2 


000376 


000000 


HALT 


C00400 


000402 


.«2 


000402 


000000 


HALT 


000404 


000406 


.«2 


0C0406 


000000 


HALT 


000410 


000412 


.«2 


000412 


000000 


HALT 


000414 


000416 


.*2 


000416 


000000 


HALT 


000420 


000422 


.*2 


000422 


000000 


HALT 


000429 


000426 


.*2 


000426 


000000 


HALT 


000430 


000432 


.♦2 


000432 


000000 


HALT 


000434 


000436 


.*2 


000436 


000000 


HALT 


000440 


000442 


.*2 


000442 


000000 


HALT 


000444 


000446 


.*2 


000446 


000000 


HALT 


000450 


000452 


.*2 


000452 


000000 


HALT 


000454 


000456 


.*2 


000456 


000000 


HALT 


000460 


000462 


.♦2 


000462 


000000 


HALT 


000464 


000466 


.♦2 


000466 


000000 


HALT 


000470 


000472 


.♦2 


000472 


000000 


HALT 


000474 


000476 


.*2 


000476 


000000 


HALT 


000500 


000502 


.♦2 


000502 


000000 


HALT 


000504 


00U506 


,♦2 


000506 


000000 


HALT 


OOOSIO 


000512 


.*2 



unexpected trap to this location 
lexahine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to ftno cause 
unexpected trap to this location 
examine stack to finu cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
exahine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
examine stack to find cause 
unexpected trap to this location 
exahine stack to find cause 
unexpected trap to this location 

EXAtaiC STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EMNINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
lEXAHINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAtnNE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FINL CAUSE 
IMEXPECTED TRAP TO THIS LOCATION 
EXAMINE STAOC TO FIND CMSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LKATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 



CZOHH-CO 
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000512 


000000 


HALT 


000514 


000516 


. *2 


000516 


000000 


HALT 


000520 


000522 


. *2 


000522 


000000 


HALT 


000524 


j^jfc s^m ^^M. 

000526 


.♦2 


000526 


000000 


HALT 


000530 


000532 


. *2 


000532 


000000 


HALT 


000534 


000536 


.*2 


000536 


000000 


HALT 


000540 


000542 


.*2 


000542 


000000 


HALT 


000544 


000546 


.*2 


000546 


000000 


HALT 


000550 


000552 


. *2 


000552 


000000 


HALT 


000554 


000556 


. *2 


000556 


000000 


HALT 


000560 


000562 


.*2 


000562 


000000 


riALT 


000564 


AAAK££ 

000566 


. A 


0005 o6 


AAAAAA 
000000 


HALT 




AAAC^9 

000572 


. A 


000572 


AAAAAA 
000000 


HALT 


000574 


AAAC^& 

000576 




AAAK7& 


AAAAAA 
000000 


rWLT 


AAA&AA 

ooueou 


AAA&AO 

00060c 


• «2 




AAAAAA 

000000 


HALT 


AAAAA^ 

000604 


AAA^A^ 

000606 


. A 


AAA£A^ 

uuoooe 


AAAAAA 

oooooo 


HALI 


AAA£ f A 
000610 


AAA&4 O 

000612 


. «2 


AAA£ 4 9 
000612 


AAAAAA 

OOOOOO 


HALT 


AAA&4 A 
000614 


AAA^f £ 

000616 


.A 

. ^2 


000616 


AAAAAA 
OOOOOO 


HALT 


AAA&9A 

OOOeZO 


AAA£99 

OOOoZe 


• «2 


AAA£99 

000622 


AAAAAA 

OOOOOO 


HALT 


AAA^^A 

000624 


AAA£9£ 

000626 


.A 

• ^2 


000626 


AAAAAA 

OOOOOO 


HALT 


AAAAVA 

000690 


AAA£ V9 

000632 


. «2 


AAA&V4 

000632 


AAAAAA 
OOOOOO 


HALT 


00vl034 


AAA&V& 
000O3O 


-A 

• «z 


AAA^T^ 
OOOOAO 


AAAAAA 
OOOOOO 


HALT 


000640 


AAA&AO 

000642 


-A 

• 


AAA£^<9 

000642 


AAAAAA 
OOOOOO 


HALT 


000644 


AAA£A£ 

000646 


_^ A 

> «2 


AAA£A£ 

000646 


AAAAAA 
OOOOOO 


HALT 


AAA^CA 

000650 


AAA£C9 

000652 


. A 


0006X 


AAAAAA 
OOOOOO 


HALT 


000654 


AAA^C^ 

000656 


.♦2 


000656 


OOOOOO 


HALT 




WUUDDc 


. *s 


000662 


OOOOOO 


HALT 


000664 


000666 


.«2 


000666 


OOOOOO 


HALT 


000670 


000672 


.*2 


000672 


OOOOOO 


HALT 



: EXAMINE SIACK TO FIND CAUSE 
JU^£XPECTEO TRAP TO THIS LOCATION 
: EXAMINE STACK TO FIND CAUSE 
.•UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
I UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
i UNEXPECTED TRAP TO THIS LOCATION 
I EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LKATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
{EXAMINE STACK TO FIND CAUSE 
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000674 


000676 


.*2 


000676 


000000 


HALT 


000700 


000702 


.*2 


000702 


000000 


HALT 


000704 


000706 


.♦2 


000706 


000000 


HALT 


000710 


000712 


.♦2 


000712 


000000 


HALT 


000714 


000716 


.*2 


000716 


000000 


HALT 


000720 


000722 


.*2 


000722 


000000 


HALT 


000724 


000726 


.*2 


000726 


000000 


HALT 


000730 


000732 


.*2 


000732 


000000 


HALT 


0007S4 


000736 


.*2 


000736 


000000 


HALT 


000740 


000742 


.♦2 


000742 


000000 


HALT 


000744 


000746 


.*2 


000746 


000000 


HALT 


000750 


000752 


.♦2 


000752 


000000 


HALT 


000754 


000756 


.♦2 


000756 


000000 


HALT 


000760 


000762 


.*2 


000762 


000000 


HALT 


000764 


000766 


.♦2 


000766 


000000 


HALT 


000770 


000772 


.*2 


000772 


000000 


HALT 


000774 


000776 


.♦2 


000776 


000000 


HALT 


1 001000 




.SETVEC 



(UNEXPECTED TRAP TO THIS LOCATION 
t EXAMINE STACK TO FIND CAUSE 
{UNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
i EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
(UNEXPECTED TRAP TO THIS LOCATION 
(EXAMINE STACK TO FIND CAUSE 
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SEQ 24 



0 {STANDARD INTERRUPT VECTORS 

000200 .-200 
000200 000167 000600 JHP START :G0 TO START OF PROGRAd 



1 000204 .TRPDEF 

iOEFINITIONS FOR TRAP SUBROUTINE CALLS 

: POINTERS TO SUBROUTINES CAN BE FOUND STARTING 

sAT LOCATION "TRPTAB* 

000204 TRPDEF SCOPE. t/SCOPE LOOP AND ITERATION HANDLER/ 

104400 SCOPE-TRAP*Y s SCOPE LOOP AND ITERATION HANDLER 

000001 Y-Y*l 

000204 TRPDEF TYPE.t/TELETYPE OUTPUT ROUTINE/ 

104401 TYPE-TRAP*Y jTELETYPE OUTPUT ROUTINE 

000002 Y-Y*l 

000204 TRPDEF OCTASC.t/OCTAL TO ASCII CONVERSION/ 

104402 OCTASC-TRAP*Y :OCTAL TO ASCII CONVERSION 

000003 Y-Y»l 

000204 TRPDEF INSTR . t/lNPUT ASCII STRING/ 

104403 INSTR-TRAP*Y i INPUT ASCII STRING 

000004 Y-Y*l 

0C0204 TRPDEF INSTER . t/STRING INPUT ERROR/ 

104404 INSTER-TRAP*Y iSTRING INPUT ERROR 

000005 Y-Y»l 

000204 TRPDEF PARAM. t/CONVERT STRING TO OCTAL. CHECK LIMITS/ 

104405 PARAM-TRAP»Y {CONVERT STRING TO OCTAL. CHECK LIMITS 

000006 Y-Y*l 

000204 TRPDEF SAVOSP.t/SAVE RO-RS. PC/ 

104406 SAVOSP-TRAP*Y sSAVE R0-R5. PC 

000007 Y-Y»l 

000204 TRPDEF RESOS.t/RESTORE RO-RS/ 

104407 RES05-TRAP*Y iRESTORE R0-R5 

000010 Y-Y*l 

000204 TRPDEF SCOPEl . t/CHECK FOR FREEZE ON CURRENT DATA/ 

104410 SC0PE1>TRAP*Y iCHECK FOR FREEZE ON CURRENT DATA 

000011 Y-Y«l 

2 .MACRO CODEMl 

3 MOV OHSSR.OHSLR ;SET UP ADDRESS OF SILO 

4 INC DHSLR ; STATUS REGISTER HIGH BYTE 

5 .ENDM CODEMl 

6 000204 .START DHRVEC. 3.4,0HSCR. 0.177776.7. 10. . .1 
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SEQ 25 



0 001000 .-1000 

:PR0GRM1 INITIALIZATION 
:LOCK OUT INTERRUPTS 
iSET UP PROCESSOR STACK 
iSET UP POUER FAIL VECTOR 
i CLEAR PROGRAM FLAGS AND COUNTS 
I TYPE TITLE MESSAGE 











.IIF 


NB 


<> , 


sOETERNINE NENORY 


SIZE 














.IIF 


NB 


<> , 


:SET UP TRACE TRAP 


RETURN 






001000 


177570 






SUR: 




.UORO 


177570 


; SWITCH DHSCR ADDRESS 


1 


4 


001002 


177570 






LIGHTS: 


.WORD 


177570 


1 LIGHTS 


1 


4 


001004 


012767 


000340 


176764 


START: 


NOV 


•340. PS 


(LOCK OUT INTERRUPTS 


1 


4 


001012 


012706 


015644 








NOV 


•STACK, SP 


;SET UP PROCESSOR STACK 






001016 


012702 


000024 








NOV 


•24. R2 


t POINT TO VECTOR AREA 


1 


7 


001022 


012722 


014510 








nov 


•PFAIL.(R2)» 


iSET UP POUER FAIL TRAP 


1 


7 


001026 


012722 


000340 








NOV 


#340. (R2)^ 


1 SERVICE AT LEVEL 7 


1 


7 


001032 


012722 


012350 








NOV 


•ERRORS. (R2)^ 


{ERROR HANDLER 


t 


7 


001036 


012722 


000340 








NOV 


•340. (R2)« 


1 SERVICE AT LEVEL 7 


1 


7 


001042 


012722 


012562 








NOV 


•TRPSRV. (R2)* 


(GENERAL HANDLER DISPATCH SERVICE 


1 


7 


001046 


012712 


000340 








NOV 


•340. (R2) 


iSEtlVICE AT LEVEL 7 


i 


8 


0010S2 


005067 


012556 








CLR 


STFLG 


i CLEAR TEST START FLAG 




001056 


005067 


012512 








CLR 


PASCNT 


i CLEAR PASS COUNT 






001062 


005067 


012510 








CLR 


ERRCNT 


1 CLEAR ERROR COUNT 






001066 


005067 


012500 








CLR 


ERRFL6 


1 CLEAR ERROR FLAG 






001072 


005067 


012474 








CLR 


ERRFLG 


1 CLEAR LAST ERROR PC 






001076 


016746 


176702 








NOV 


4. -CSP) 


1 PUSH TRAP VECTOR 




4 


001102 


016746 


176700 








HOV 


6, -CSP) 






4 


001106 


012767 


001122 


176670 






NOV 


•11. 4 


1 SET UP TRAP VECTOR 




4 


001114 


005777 


177660 








TST 


•SUR 


1 TEST SUITCH REGISTER ADDRESS 




4 


001120 


000405 










BR 


2t 


1 IF SUCCESSFUL, LEAVE IT ALONE 




4 


001122 








1«: 












4 


001122 


012767 


000176 


177650 






HOV 


•176. SUR 


i POINT TO SOFT SUITCH DHSCR 




4 


001130 


005067 


177646 








aR 


LIGHTS 


1 0 HEANS UE ARE NOT GOING TO USE 


LIGHTS 


001134 








21: 












5 


001134 


005726 










TST 


(SP)* 


i aEAN UP STACK 




4 


001136 


005726 










TST 


(SP)* 






4 


001140 


012667 


176642 








NOV 


(SP)*. 6 






4 


001144 


012667 


176634 








NOV 


CSP)*. 4 






4 


001150 


104401 


014660 








TYPE 


.NTITLE 


iTYPE TITLE MESSAGE 






001154 


005767 


012452 








TST 


INIFL6 


i CHECK INITIALIZATION FLAG 














.IP 10 


<DHRVEC> 








001160 


001001 










BNE 


VECl 


iIF NOT 0. CHECK SWITCHES 







iFOR REINITIALIZATION 



.IFF 


BNE 


BEGIN 


1 IF NOT 0. START TEST 


.ENDC 








.IF NB 


<> 






SIZE: 


CLR 


RO 






NOV 


•2i.e«4 


iSET UP TINE OUT RETURN 


11: 


TST 


my* 


iUILL TRAP UHEN NO NENORY i 




BR 


11 


i LOCATION RESPONDED. CONTINUE 


21: 


NOV 


RO.HCORE 


iRO CONTAINS ADDRESS OF 




SUB 


•2.HC0RE 


iNON EXIST ANT NENORY i 




NOV 


•6. 8^4 


{RESTORE TRAPCATCHER 
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SEQ 26 



.ENDC 
.IF NB 
TRACER: 



.ENOC 
.IF NB 



nov 

SXT 

nov 

BR 
NOV 

nov 
nov 

<0HRVEC> 



•11.8*10 

RO 

•RTT.TRTRET 
21 

««TI.TRTRET 
•12,8*10 
•TRTRET.8*16 









.IF B 


< > 




001162 


000404 




• IFF 
.ENOC 


BR 

TST 
BEQ 


VEC2 

INIFLG 
VEC2 


001164 


032777 


000001 


177606 VECl: 


BIT 


•SU00.8SUR 


001172 


001445 






BEQ 


BEGIN 


001174 






VE:2: 






001174 


012701 


000300 




nov 


*300,R1 


001200 


012702 


000302 




nov 


•302. R2 


001204 


012703 


000004 




nov 


•4.R3 


001210 


010211 




It: 


nov 


R2.(R1) 


001212 


005012 






CLR 


(R2) 


001214 


060301 






M)0 


R3.R1 


001216 


060302 






ADD 


R3.R2 


001220 


020127 


001000 




CMP 


Rl.^1000 


001224 


001971 






BNC 


11 


001226 


104403 






msTR 




0012S0 


014712 






nVECTOR 




0012S2 


104405 






PARAN 




0012S4 


000300 






300 




001236 


000770 






770 




001240 


013562 






OHRVEC 




001242 


003 




.BYTE 


3 




001243 


004 




.BYTE 


4 




001244 


104403 






msTR 




001246 


014754 






NREGAO 




001250 


104405 






PAIMN 




00J12S2 


000000 






0 




0012S4 


177776 






177776 




001256 


013540 






OHSCR 




001260 


007 




.BYTE 


7 




001261 


010 




.BYTE 
.EM>C 


10 





001262 

001262 016767 012270 012270 

001270 005267 012264 

001274 005767 012332 

001300 001002 

001302 005167 012324 



.IF 



.ENDC 



<1> 

COOEHl 

NOV OHSSR.OHSLR 

DC ONSLR 



TST 



con 



INIFLG 

BEGIN 

INIFLG 



I SET UP ILLEGAL INSTRUCTION TRAP RETURN 
lOO 11/40. 11/45 INSTRUCTION 
111/40.45 RTT RETURN FROM TRACE TRAP 

(1105. 10, 20 RTI RETURN FROM TRACE TRAP 
iRESTROE TRAPCATCHER 
iSET UP TRACE TRAP VECTOR 



I 3 



I 4 

I 4 
I 4 



I IF INITIALIZE FLAG-0 

(GET VECTOR AND CSR ADDRESS 

ilF SUOO-1. GET NEU VECTOR 
(AND CSR 



i RESTORE TRAPCATCHER 

I IN FLOATING VECTOR AREA 



I INPUT ADDRESS OF DEVICE VECTOR 
f MESSAGE "VECTOR ADDRESS-* 
tCQNVERT STRING TO OCTAL 
iLOU LIMIT 

iHIGH LIMIT , i 

iLOCATIONS TO BE FILLED 
iNUHBER OF LOCATIONS 
iLSB MASK 

(INPUT ADDRESS OF DEVICE CSR 
iMESSAGE 'CONTROL REGISTER ADDRESS-* 
iCQNVERT STRING TO OCTAL 
tLOU LIMIT 
tHIGH LIMIT 

(LOCATIONS TO BE FILLED 
iNUHBER OF LOCATIONS 
iLSB MASK 



I SET UP ADDRESS OF SILO 
iSTATUS REGISTER HIGH BYTE 

I IF INITIALIZATION FLAG 
lis aEARED 
iSET IT 



iPROGRAM START 

iCHECK FOR PROQRAM START AT SELECTED AOORCSS 
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001306 


012767 


000340 


176462 


BEGIN: 


nov 


•340. PS 


001314 


012706 


015644 






nov 


•STACK. SP 


001320 


032777 


000002 


177452 




BIT 


♦SUOl.SSUR 


001326 


001410 








BEQ 


11 


001330 


104403 








INSTR 




001332 


015123 








MTSTPC 




001334 


104405 








PARAri 




001336 


000000 








0 




001340 


017500 








17500 




001342 


013600 








RETRN 




0C1344 


001 






.BYTE 


1 




001345 


001 






.BYTE 


1 




001346 


000410 








BR 


21 


001350 


012767 


001400 


012222 


1*: 


HOV 


•Tl. RETRN 


001356 


005767 


012252 






TST 


STFLG 


001362 


001004 








BNE 


SI 


001364 


005167 


012244 






COM 


STFLG 


001370 


104401 


015117 




2$: 


TYPE 


(MR 


001374 


000177 


012200 




3$: 


jnp 


METRN 



(LOCK OUT INTERRUPTS 
tSET UP PROCESSOR STACK 
I IF iUOl'l 

I GET PC FOR PROGRAM START 
I GET PC 

iMESSAGE "TEST PC 

I CONVERT STRING TO OCTAL 



jNORMAL START. TEST 1 

I IF LOOPING, BYPASS TYPEOUT 



tTYPE -R' TO INDICATE START 
(START TESTING 
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SEQ 28 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
S3 
34 
35 
36 
37 
38 
39 



.MACRO AUTOl XLINE.XBIT.K 

(ENABLE AUTO ECHO ON LINE 'XLINE' 
(TRANSMIT ONE CHARACTER ON LINE 'XLINE' 
(AT 9600 BAUD, 8 BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
(EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



TS \XN,100.4I 
MOV 

1): JSR 

MOV 
MOV 
MOV 
MOV 
CLR 
MOV 



2): 



S«: 



41: 
.ENOn 



MOV 

TSTB 

BPL 

INC 

MOV 

CMP 

BEQ 

MOV 

aR 

M.T 

BR 

DEC 

B6T 

BNI 

BIC 

BR 

SCOPE 
MiTOl 



«eiTll.«OHSCR 
PC. CLR ALL 

•'XLINE' .0DHSCR 
4-l.SOHBC 
«TURD'K' .80HBA 
♦100, RO 
Rl 

8133503. SDHLPR 



•'raiT'.WNBAR 

SOHSCR 

2t 

Rl 

«>HNRC.R4 

R4.TUR0'K' 

3t 

TURO'K'.RS 

80HLPR 

0 

41 

RO 

2t 

41 

♦100000. aOMLPR 
21 



(MASTER CLEAR INTERFACE 
(CLEAR ALL BYTE COUNT AN 
(BUS ADDRESS REGISTERS 
(SELECT LINE 'XLINE' 
(SET BYTE COUNT TO 1 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET UP TO RECEIVE 64 CHARACTERS 

(COUNT OF CHARACTERS RECEIVED 

(SET UP SPEED FOR 9600 BAUD 

:8 BITS PER CH^ACTER. 

tAUTO ECHO ENABLED ON LINE 'XLINE' 

(SET BAR BIT FOR LINE 'K' 

jUAIT FOR CHARACTER TO 

iBE RECEIVED 

:UPDATE RECEIVED CHARACTER COUNT 

3 READ CHARACTER 

a IS CHARACTER CORRECT 

s(RS}-EXPCCTED CHARACTER 
{SHUT OFF AUTO ECHO 
iCHIUMCTBt ECHOED INCORRECTLY 
sRESTART TEST 

ilF 64 WMCACTERS HAVE NOT 
tBEEN RECEIVED. CONTINUE 

«$HLT OFF MJTO-ECHO 
tGET 1 nORE CHARACTER 
iCHECK FOR ITERATIONS. LOOP 
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SEQ 29 



1 
2 
3 
4 

5 
6 

7 

a 

9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



.MACRO AUT02 XLINE.XBIT.K 

, TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 'K' 
iTRANSMIT 1 CHARACTER ON LINE 'K' UITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



TS \XN.10,S$ 



It: 



21: 



3t: 



4t: 



5t: 
.ENDN 



MOV 


#6IT11.«0HSCR 


JSR 


PC. SET ALL 


NOV 


•'K' .80HSCR 


NOV 


•TURO'K' .80HBA 


NOV 


«-l.«)HBC 


NOV 


•133503. «)HLPR 


BIC 


•'XBIT' .LINACT 


NOV 


«-l.M)HBAft 


CLR 


RO 


NOV 


M)HNRC,R4 


BPL 


11 


NOV 


R4.R3 


SUM 


R3 


BIC 


♦177760. RS 


NOV 


R3,R2 


ASL 


R2 


CNP 


RS,#'K' 


BEQ 


4t 


CMP 


R8Ur(R2).R4 


BEQ 


21 


NOV 


RBUr(R2).R5 


HLT 


1 


BR 


4t 


ncB 


RBUF(R2} 


BNE 


11 


BIC 


LINBIT(R2),Lnii 


TST 


LINACT 


9NE 


It 


NOV 


«'K' .iOHSCR 


BIC 


nOOOOO.BDHLPR 


TSTB 


BOHSLR 


BNE 


It 


BR 


St 


INC 


RO 


CNP 


R4, TURO'K' 


Bca 


3t 


NOV 


TURD'K'.RS 


HLT 


? 


SCOPE 




AUT02 





(MASTER CLEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 (OCTAL) CHARACTERS 

(SELECT LINE XLINE FOR TESTING 
(CHARACTER TO BE TRANSMITTED 

(ON LINE XLINE IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE XLINE 

(SET AUTu ECHO FOR LINE XLINE 
(CLEAR LINE ACTIVE BIT 

(SET BtA BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 

(IF NOT VALID DATA. TRY AGAIN 

(EXTRACT LINE NUMBER FORM CHARACTER 

iCLEAR STATUS BITS 



iIF LINE NUMBER IS XLINE 

iCHECK FOR CORRECT ECHOED CHARACTER 
I IF NOT LINE XLINE. OCCK DATA 

i(RS)-EXPECTEO NGN ECHOED DATA 
iNON ECHOEb DATA ERROR 

iUPOATE EXPECTED RECEIVED DATA 
iCQNnNUE IF NOT DONE 
;T iCLEAR ACTIVE BIT 

tIF ALL LINES ARE DONE 
(EXIT 

{SELECT LINE XLINE 

}CUMI AUTO ECHO FOR LBIE XLINE 

:GET REST OF CHARACTERS 

(MO CHECK 

(UPDATE ECHOED CHARACTER COUNT 
{CHECK ECHOED DATA 

i(R5)-EXPeCTED ECHOED DATA 
(ECHOED DATA ERROR 
{CHECK FOR ITERATIONS. LOOP 
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SEQ 30 



1 


.MACRO 


SSETALL 








2 
3 




.SET 


BYTE COLWT FOR ALL LINES 


TO 400 


4 




J SET 


BUS ADDRESS FOR ALL LINES 


TO TBUF 


S 




(CLEAR EXPECTED CHARACTER 


BUFFERS 


6 

7 




(SET 


LINE ACTIVE BITS FOR 


ALL 


Lines 


6 


SETALL: 


MOV 




#20, RO 




iSET UP TO LOAD 16 


9 












(BYTE COUNT AND BUS ADDRESS 


10 












1 MEMORY LOCATIONS 


11 




CLR 




D1 




J SET UP TO GENERA'^E EXPECTED 


12 












(RECEIVED CHARACTER BUFFER 


13 




MOV 








iUILL BE HIGH BYTE 


14 












lOF EXPECTED RECEIVED CHARACTER 


15 




MOV 




A1 OX 




(OFFSET FOR H^GH BYTE 


16 


1«: 


MOV 




ATQIMC onUDA 
V 1 DUr , W/rWn 




(LOAD BUS ADDRESS 


17 




MOV 




A AAA onunr 




iLOAD BYTE COUNT 


18 




MOV 




ahiaaii aaui od 




tSET LINE SPEED TO 4800 BAUD 


19 




CLRB 










20 












(RECEIVED CHARACTER 


21 




MOVB 




nc • novT 1 no 7 




(LOAD HIGH BYTE 


22 




INC 




•OtQCR 




(ADVANCE LINE NIW« TO NEXT LINE 


23 




INC 




R2 




(UPDATE POINTERS 


24 




AOO 




«2.R1 






25 




ADO 




#2.R3 






26 




Dec 




RO 




{CONTINUE IF NOT DONE 


27 




BNE 




It 






28 




MOV 




*-l.LINACT 




iSET ACTIVE FLAGS FO*? hi. LINES 


29 




RTS 




PC 




jRETURN TO CALLING ROuTISc 


iv 


.ciwn 


SSETALL 








31 














32 


.MACRO 


CCLRALL 








33 














34 




laENR ALL BYTE COUNT AND BUS ADDRESS REGISTERS 


35 
36 


aRALL: 


nov 




«20,R0 




iSET UP TO CLEAR 16 


37 


l»: 


aR 




VHBA 




tCLEAR BUS AOORESS 


38 




aR 




mmz. 




taEAR BYTE COUNT 


39 




INC 




BCHSCf) 




lANVANCE LINE NUMBER 


40 




DEC 




RO 




. CONTINUE IF NOT DONE 


41 




BNE 




11 






42 




RTS 




PC 




:RETURN TO CALLING ROUTINE 


43 


.ENOM 


CCLRALL 
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SEQ 31 



2 
3 
4 
5 
6 
7 
9 
10 
11 
12 
13 
14 
15 
16 



001400 



000020 
000000 
000020 
000000 
000001 
000000 
000020 



XLINE-LINE 
XBIT>BZTX 
K-KX 
LINE-0 
BITX-1 
KX-0 
.REPT 
AUTOl 
.NLIST 
LINE -LINE* 1 
BITX-BITX*BITX 
KX-KX*1 
.LIST 
.ENOR 

AUTOl \LINE.\BITX,\KX 



20 

\LINE.\BITX.\KX 



;ENABLE AUTO ECHO ON LINE 0 

: TRANSMIT ONE CHARACTER ON LINE 0 

;AT 9600 BAUD, 8 BITS. 

{RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
{AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
iEX,«-.TLY ONE HORE CHARACTER SHOULD BE RECEIVED. 



0C1400 








TS \XN.100.4t 






001400 


012767 


000340 


1 foi 70 


Tl; 


nov 


•340, rS 


{DISABLE ALL INTERRUPTS 


001406 


012767 


000100 


012172 




nov 


vlOO.ICOiMT 


iSET UP FOR 100 ITERATIONS 


001414 


012767 
000002 


001334 


A« ^ « £A 

012160 


.IF NB 

.ENDC 
XN-XN*1 


nov 

<> 

nov 


«4t. ESCAPE 

M. f Arc 

•.FREEZl 


{5»ET UP TO ESCAPE TO NEXT TEST 
tSCT UP TO LOOP UITH DATA 


001422 


012777 


004000 


012110 




nov 


«eiT11.80HSCR 


; MASTER aEAR INTERFACE 


001430 


004767 


011744 




11: 


JSR 


PC.CLRM.L 


tCLEM ALL dHE OMJNT AN 
iBUS MXMESS REGISTERS 


001434 


012777 


000000 


012076 




nov 


•O.MMSOt 


«SaECT UNE 0 


001442 


012777 


177777 


012100 




nov 


«-l.«>HiC 


iSET BYTE COUNT TO 1 


001450 


012777 


014310 


012070 




nov 


•TUROO.aOHBA 


iSET UP HOORESS OF CHARACTER TO BE 


0014S6 


012700 


000100 






nov 


•lOO.ftO 


J SET UP TO RECEIVE 64 CHARACTERS 


001462 


005001 








aft 


Rl 


{COUNT OF CHARACTERS RECEIVED 


001464 


012777 


133503 


012052 




nov 


#133503. aOHLPR 


iSET UP SPEED FOR 9600 BAUD 
i8 BITS PER CHARACTER. 
lAUTO ECHO ENA8..E0 ON LIKE 0 


001472 


012777 


000001 


012052 




nov 


•1.80H8AR 


tSET BAR BIT FOR LINE 0 


001500 


105777 


012034 




2»: 


TSTB 


»HSCft 


(UAIT FOR CHARACTER TO 


001504 


100375 








BPL 


21 


iBE RECEIVED 


001506 


005201 








INC 


Rl 


lUPOATE RECEIVED CHARACTER COUNT 


001510 


017704 


012026 






nov 


»M«C.R4 


(READ CHARACTER 


001514 


020467 


012570 






cnp 


R4.TUR00 


lis CHARACTER CORRECT 


001520 


001406 








BEQ 


3t 




001522 


016705 


012562 






nov 


TURDO.RS 


(€RS)-EXPECTEO CHARACTER 


001526 


005077 


012012 






aR 


OHLPR 


iSHUT OFF AUTO ECHO 


001532 










HLT 


0 


{CHARACTER ECHOED INCORRECTLY 


001532 


104000 








EHT 


0 




001534 


0CO407 








BR 


4t 


{RESTART TEST 


001536 


005300 






3$: 


DEC 


RO 


iIF 64 CHARACTERS HAVE NOT 


001540 


0C3357 








B6T 


2t 


(BEEN RECEIVED. CONTINUE 


001542 


100404 








Bni 


41 





: 3 
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SEQ 32 



001544 042777 100000 011772 
001SS2 0007S2 
001SS4 104400 

000001 

000002 

COOOOl 

001S56 



BIC 
BR 

4t: SCOPE 
LINE-LINE*1 
BITX-8ITX»BITX 
KX-KX*1 

AUTOl \LINE.\BITX.\KX 



«1OOOOO.0DHLPR 
2t 



sSHUT OFF AUTO -ECHO 
(GET 1 KIORE CHARACTER 
(CHECK FOR ITERATIONS. 



LOOP 



{ENABLE AUTO ECHO ON LINE 1 
tTRANSMIT ONE CHARACTER ON LINE 1 
lAT 9600 BAUD. 0 BITS. 

iRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED, 
i AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
{EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



001556 








TS \XN, 100,41 






001556 


012767 


000340 


176212 


T2: 


»10V 


♦340. PS 


{DISABLE ALL INTERRUPTS 


001564 


012767 


000100 


012014 






♦lOO.ICOUNT 


;SET UP FOR 100 ITERATIONS 


001572 


012767 
000003 


001732 


012002 


.IF MB 

.ENDC 
XN-XN«1 


nov 

<> 

nov 


♦4$. ESCAPE 
•.FREEZl 


{SET UP TO ESCAPE TO NEXT TEST 
tSET UP TO LOOP WITH DATA 


0C1600 


012777 


C04000 


011732 




nov 


•6IT11.0OHSCR 


{MASTER aEAR INTERFACE 


001606 


004767 


011566 




11: 


JSR 


PC.CLRALL 


(CUAR ALL BYTE COUNT AN 
{BUS AODISSS REGISTERS 


001612 


012777 


000001 


011720 




NOV 


•l.OOHSCR 


}Sa,ECT LINE 1 


001620 


012777 


177777 


011722 




NOV 


•-1.R0HBC 


{SET BYTE COUNT ''O 1 


001626 


012777 


014312 


011712 




NOV 


«7UROi.80HBA 


{SET UP tiOmtLi OF CHARACTER TO 3E 


001634 


012700 


000100 






NOV 


noo.Ro 


{SET UP TO RECEIVE 64 D4ARACTERS 


001640 


005001 








aR 


Rl 


{COUMT OF CHARACTERS RECEIVCO 


001642 


012777 


133503 


011674 




NOV 


•ISSSOS.ttHLPR 


iSCT UP SPEED FOR 9600 BAUD 
tS BITS PER CHARACTER. 
tMITO ECHO ENA8I.ES ON LINE 1 


001650 


012777 


000002 


011674 




NOV 


42.S0HBAR 


tSET BAR BIT FOR LINE 1 


001656 


105777 


011656 




2t; 


TST8 


BOKSCR 


(WAIT FOR CHARACTER TO 


001662 


10037*5 








8PL 


21 


{BE RECEaVEO 


001664 


005201 








INC 


Rl 


{UPDATE RECEIVED CHARACTSl COUNT 


001666 


017704 


011650 






NOV 


ttlMRC •R4 


sREAO CHARACTER 


001672 


020467 


012414 






CNP 


R4.TI«01 


tIS OMRACTER CORRECT 


001676 


001406 








BEQ 


3t 




001700 


016705 


012406 






NOV 


TUROl.RS 


iCRS)>EXPECTEO CHARACTER 


001704 


005077 


011634 






aR 


BONLfl) 


tSHUT OFF AUTO ECHO 


001710 










HLT 


0 


: CHARACTER ECHOED INCORRECTLY 


001710 


104000 








ENT 


0 




001712 


000407 








BR 


41 


{RESTART TEST 


001714 


005300 






3«: 


DEC 


RO 


ilF 64 CHARACTERS HAVE NOT 


001716 


003357 








8GT 


21 


{BEEN RECEIVED. CONTINUE 


001720 


100404 








mi 


41 




001722 


042777 


100000 


011614 




BIC 


•100000. 0M.PR 


{SHUT OFF AUTO-ECHO 


001730 


000752 








BR 


2* 


{GET 1 NQRE CHARACTER 


001732 


104400 






41: 


SCOPE 




iCHECK FOR ITERATIONS, LOOP 




000002 






LINE-LINE*1 








000004 






BITX»BITX»BITX 








000002 






KX-KX*1 








001734 








AUTOl 


\LINE.\BITX.\KX 
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SEQ 33 



i ENABLE AUTO ECHO ON LINE 2 
(TRANSMIT ONE CHARACTER ON LINE 2 
lAT 9600 BAUD, 9 BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO, 
(EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



001734 

001734 012767 000340 176034 

001742 012767 000100 011636 

001750 012767 002110 011624 



001756 
001764 

001770 
001776 
002004 
002012 
002016 
0C2020 



002026 
002034 
002040 
002042 
002044 
002050 
002054 
002056 
002062 
002066 
002066 
002070 
002072 
002074 
002076 
002100 
002106 
002110 



002112 



000004 

012777 
004767 

012777 
012777 
012777 
012700 
005001 
012777 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
0000C3 
000010 
000003 



004000 
011410 

000002 
177777 
014314 
000100 

133503 



000004 
011500 



011472 
012240 

012232 
011456 



011554 



01154? 
011544 
011534 



011516 
011516 



TS \XN. 100.41 
T3: MOV 
MOV 
MOV 
.IF NB <> 
MOV 

.ENOC 
XN-XN»1 

MOV 

1): JSR 

MOV 
MOV 
MOV 
MOV 
CLR 
MOV 



lOOCOO 011436 



«340.PS 

•lOO.ICOUNT 
*4$. ESCAPE 

♦.FREEZl 



«eiTll.SDHSCR 
PC.CLRALL 

«2.8DHSCR 

«-l.SDHBC 

«TURD2.8DH6A 

«100.R0 

Rl 

•133503. ODHLPR 



MOV 
2$ : TSTB 
BPL 
INC 
MO" 
CMP 
BEQ 
MOV 
CLR 
HLT 
EMT 
BR 

3$: DEC 
BGT 
BMI 
BIC 
BR 

4* : SCOPE 
LINC-LINE»1 
BITX-BITX»BITX 
KX-KX^l 

AUTOl \LIHE.\8ITX.\KX 



M.80HBAR 
ODHSCR 
21 
Rl 

80HNRC.R4 
R4.TURD2 
3» 

TUR02.R5 
«OHLPR 
0 
0 
4» 
RO 
2t 
4* 

«iOO0O0,«0HLMt 
2» 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



(master clear interface 
(Cle«» all byte count an 
(bus address registers 
(select line 2 
(set byte count to 1 

(set up address of character to be transmitted 

(set up to receive 64 characters 

(count of characters received 

(set up speed for 9600 baud 

(8 bits per qiaracter. 

lauto echo enabled w line 2 

(set bar bit for line 2 

{wait for character to 

jBE RECEIVED 

(UPDATE RECEIVED CHARACTER COWiT 

(READ CHARACTER 

tIS CHARACTER CORRECT 

j(R5)-EXPeCTE0 CHARACTER 
(SHUT OFF AUTO ECHO 
(CHARACTER ECHOED INCORRECTLY 

(RESTART TEST 

ilF 64 CHARACTERS HAVE NOT 
sBEEN RECEIVEO. CONTINUE 

fSHUT OFF AUTO -ECHO 
(GET 1 HORE CHARACTER 
(CHECK FOR ITERATIONS. LOOP 



(ENABLE AUTO £CHO ON LINE 3 
(TRANSMIT ONE CHARACTER ON LINE 3 
:AT 9600 BAUD, 8 BITS. 

(RECEIVE AND VERIFY CHWACTERS UNTIL 64 HAVE BEEN RECEIVEO. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVEO, DISABLE AUTO ECHO. 
(EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVEO. 



002112 



TS SXN. 100,4$ 
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SEQ 34 



002112 012767 000340 175656 
002120 012767 000100 011460 
002126 012767 002266 011446 



002134 
002142 

002146 
002154 
002162 
002170 
002174 
002176 



002204 
002212 
002216 
002220 
002222 
002226 
002232 
002234 
002240 
002244 
002244 
002246 
002250 
002252 
002254 
002256 
002264 
002266 



002270 



000005 
012777 
004767 

012777 
012777 
012777 
012700 
005001 
012777 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000004 
000020 
000004 



004000 

011232 

000003 
177777 
014316 
000100 

133503 



000010 
011322 



011314 
012064 

012056 
011300 



011376 



011364 
011366 
011356 



011340 
011340 



T4: MOV 
MOV 
MOV 

.IF k« <> 
MOV 

.ENOC 
XN-XN*1 

MOV 

1>: JSR 

MOV 
MOV 
MOV 
MOV 
CLR 
MOV 



♦340, PS 
*100,ICOUNT 
«4». ESCAPE 

♦.FREEZl 



«BIT11.BDHSCR 
PC, CLR ALL 

«3.0DHSCR 

«-1.8DHBC 

«TURD3.0OHBA 

«100.R0 

Rl 

•133503. 90HLPR 



2>: 



100000 011260 



MOV 
TSTB 
BPL 
INC 
MOV 
CMP 
BEO 
MOV 

aR 

HLT 
EMT 
BR 
OEC 
BGT 
BMI 
BIC 
BR 

41 : SCOPE 
LINE -LINE*! 
BITX-aiTX»BXTX 
KX«KX*1 

MTTOl \LIME,\Snx.\i(X 



3»: 



«10.8DHBAR 
«)HSCR 
2» 
Rl 

0)HNRC.R4 
R4.TyR0S 
3* 

1UR03.R5 

0 
0 
4t 
RO 
2t 
4« 

•100000. WHLPR 
2t 



DISABLE ALL INTERRUPTS 
SET UP FOR 100 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 

SET UP TO LOOP WITH DATA 



MASTER CLEAR INTERFACE 
CLEAR ALL BYTE COUNT AN 
BUS ADDRESS REGISTERS 
SELECT LINE 3 
SET BYTE COUNT TO 1 

SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

SET UP TO RECEIVE 64 CHARACTERS 

COUNT OF CHARACTERS RECEIVED 

SET UP SPEED FOR 9600 BAUD 

6 BITS PER CHARACTER. 

AUTO ECHO ENABLED ON LINE 3 

SET BAR BIT FOR LIH^ 3 

UAIT FOR CHARACTER TO 

BE RECEIVED 

UPDATE RECEIVED CHARACTER COUNT 
REM> CHARACTER 

IS Character correct 

(R5)- EXPECTED CHARACTER 
SHUT OFF AUTO ECHO 
CHMMCTER ECHOED INCORRECTLY 

RESTART TEST 

IF 64 CHARACTERS HAVE NOT 
BEEN RECEIVED. CONTINUE 

SHUT OFF AUTO-ECHO 
GET 1 MORE CHARACTER 
CICCK FOR ITERATIONS. LOOP 



{ENABLE AUTO ECHO ON LINE 4 
(TRANSMIT ONE CHARACTER ON LINE 4 
(AT 9600 BAUD. B BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
(EXACTLY ONE NQRE CHARACTER SHOULD BE RECEIVED. 



002270 



002270 012767 000340 175500 T5: 



TS \XN.100.4I 



002276 012767 000100 011302 
002304 012767 00^444 011270 



000006 

002312 012777 004000 011220 



NOV 



NOV 
MOV 
•IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 



•349. PS 
•lOO.ICOUNT 
•4 I. ESCAPE 

•.FREEZl 



•BITU.BDHSCR 



t DISABLE ALL INTERRUPTS 
»SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO »CXT TEST 

(SET UP TO LOOP WITH DATA 



(MASTER aEAR INTERFACE 



: 3 
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SEQ 



002320 004767 0110S4 

002324 012777 000004 011206 

002332 012777 177777 011210 

002340 012777 014320 011200 

002346 012700 000100 

002352 005001 

002354 012777 133503 011162 



II : JSR 

HOV 
MOV 
MOV 
MOV 
CLR 
MOV 



002362 
002370 
002374 
002376 
002400 
002404 
002410 
002412 
002416 
002422 
002422 
002424 
002426 
0C2430 
002432 
002434 
002442 
002444 



002446 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000005 
000040 
000005 



000020 
011144 



011136 
011710 

011702 
011122 



011162 



100000 011102 



PC, CLR ALL 

«4,80HSCR 

*-1.80HBC 

♦TUR04.SDHBA 

♦lOO.RO 

Rl 

•133503. 80HLPR 



MOV 

2« : TSTB 
BPL 
INC 
MOV 
CMP 
BEQ 
MOV 
CLR 
HLT 
EMT 
BR 

31: DEC 
B6T 
6MI 
BIC 
BR 

4» : SCO«»E 
LINE-LINE*! 
BITX-6ITX«BITX 
KX-KX*1 

AUTOl M.INE.\BITX.\KX 



*20.8DHBAR 
80HSCR 
21 
Rl 

80HNRC.R4 
R4.TUR04 
3« 

TUR04.R5 
80HLPR 
0 
0 
4» 
RO 
21 
4» 

4100000. COHLPR 
2« 



i CLEAR ALL BYTE COUNT AN 
tBU<> ADDRESS REGISTERS 
i SELECT LINE 4 
I SET BYTE COUNT TO 1 

tSET UP ADDRESS OF CHAR.^CTER TO BE TRANSMITTED 

I SET UP TO RECEIVE 64 CHARACTERS 

{COUNT OF CHARACTERS RECEIVED 

iSET UP SPEED FOR 9600 BAUD 

i8 BITS PER CHARACTER. 

lAUTO ECHO ENABLED ON LINE 4 

iSET BAR BIT FOR LINE 4 

iUAIT FOR CHARACTER TO 

I BE RECEIVED 

I UPDATE RECEIVED CHARACTER COUNT 

iREAO CHARACTER 

ilS CHARACTER CORRECT 

:(R5)-EXP£CTE0 CHARACTER 
I SHUT OFF AUTO ECHO 
(CHARACTER ECHOED INCORRECTLY 

iRESTART TEST 

;IF 64 CHARACTERS HAVE NOT 
,8E£N AECEIVEO. CONTINUE 

.SHUT OFF AUTO -ECHO 
iGET 1 HQRE CHARACTER 
{CHECK FOR ITERATIONS. LOOP 



tENAn.E MJTO ECHO ON LINE 5 

t TRANSMIT ONE CHMtACTCR ON LIME S 

I AT 9600 BAUD. S SITS. 

iRECaVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
I AFTER 64 CHARACTEIB HAVE BEEN RECEIVED. DISM^ AUTO ECHO. 
lEXACTLY ONE HQRE CHARACTER SHOULD BE RECEIVED. 



002446 
002446 
002454 
002462 



002470 
002476 

002502 
002510 
002516 
002524 
002530 
002532 



012767 
012767 
012767 



000007 
012777 
004767 

012777 
012777 
012777 
012700 
005001 
012777 



000340 175322 
000100 011124 
002622 011112 



004000 
010676 

000005 
177777 
014322 
000100 



011042 



011030 
011032 
011022 



133503 011004 



TS \XN.100.4; 

T6: HDV 
NOV 
NOV 

.IF NB <> 
NOV 

.ENOC 
XN-XN*1 

HOV 

II: JSR 

NOV 
NOV 
NOV 
NOV 

aR 

NOV 



•340 .PS 
•lOO.ICOUNT 
•41. ESCAPE 

•.FREEZl 



•BITU.iOHSCR 
PC.CLRALL 

•5.8DHSCR 
••1.«>HBC 
•TURDS. aOHBA 
•100. RO 
Rl 

•133503. BDHLPR 



{DISABLE ALL INTERRUPTS 

i SET UP FOR 100 HERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP taTH DATA 



tNASTER aEAR INTERFACE 
laEAR ALL BYTE COUNT AN 
iBUS ADDRESS REGISTERS 
(SELECT LINE 5 
iSET BYTE COUNT TO 1 

I SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
:SET UP TO RECEIVE 64 CHARACTERS 
I COUNT OF CHARACTERS RECEIVED 
tSET UP SPEED FOR 9600 BAUD 
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SEQ 36 



iS BITS PER CHARACTER. 
:AUTO ECHO ENABLED ON LINE 



002540 


012777 


000040 


011004 




nov 


440.80H6AR 


:SET BAR BIT FOR LINE 5 


002546 


105777 


010766 




2t: 


TSTB 


SOHSCR 


sUAIT FOR CHARACTER TO 


002552 


100375 








BPL 


2* 


iBE RECEIVED 


002554 


005201 








INC 


Rl 


{UPDATE RECEIVED CHARACTER COUNT 


002556 


017704 


010760 






MOV 


SDHNRC,R4 


sREAD CHARACTER 


002562 


020467 


011534 






CMP 


R4 , TURDS 


lis CHARACTER CORRECT 


002566 


001406 








BEQ 


3* 




002570 


016705 


011526 






MOV 


TUR05.R5 


i(R5)*EXPECTE0 CHARACTER 


002574 


005077 


010744 






CLR 


80HLPR 


:SHUT OFF AUTO ECHO 


002600 










HLT 


0 


{CHARACTER ECHOED INCORRECTLY 


002600 


104000 








EMT 


0 




002602 


000407 








BR 


4t 


jRESTART TEST 


002604 


005300 






3»: 


DEC 


RO 


ilF 64 CHARACTERS HAVE NOT 


002606 


003357 








BGT 


2t 


:BEEN RECEIVED. CONTINUE 


002610 


100404 








BMI 


41 




002612 


042777 


100000 


010724 




b;c 


«100000,SDHLPR 


{SHUT OFF AUTO -ECHO 


002620 


000752 








BR 


2* 


(GET 1 MORE CHARACTER 


002622 


104400 






4*: 


SCOPE 




: CHECK FOR ITERATIONS. LOOP 




000006 






LINE-LINE*1 








000100 






BITX-BITX*BITX 








000006 














002624 








AUTOl 


\LINE.\BITX.\KX 





{ENABLE AUTO ECHO ON LI»C 6 
{TRANSMIT ONE CHARACTER ON LUC 6 
I AT 9600 BAUD. 8 BITS. 

{RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
{AFTER 64 CHARACTERS HAVE SEEN RECEIVED. DISABLE AUTO ECHO. 
jEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



002624 








TS \XN.100.4t 






002624 


012767 


000340 


175144 


T7: 


NOV 


•340. PS 


{DISABLE ALL INTERRUPTS 


002632 


012767 


000100 


010746 




NOV 


nOO.ICOUNT 


{SET UP FOR 100 HERATIONS 


002640 


012767 
000010 


003000 


010734 


.IF NB 

.ENDC 
XN-XN*1 


NOV 

<> 

NOV 


#41. ESCAPE 
•.FREEZl 


{SET UP TO ESCAPE TO NEXT TEST 
(SET UP TO LOOP yiTH DATA 


002646 


012777 


004000 


010664 




NOV 


46IT11.B0HSCR 


(NASTER aEAR INTERFACE 


002654 


004767 


010520 




I*: 


JSR 


PC.CLRALL 


(CLEAR DLL BYTE COUNT AN 
{BUS ADDRESS REGISTERS 


002660 


012777 


000006 


010652 




NOV 


•B.BOHSCR 


{SaECT LINE 6 


002666 


012777 


177777 


010654 




NOV 


#-l.fiOHBC 


{SET BYTE COUNT TO 1 


002674 


012777 


014324 


010644 




NOV 


«TURO6.«0HBA 


iSET UP AOOftESS OF CHARACTER TO BE 


002702 


012700 


000100 






NOV 


«100.RO 


t SET UP TO RECEIVE 64 CHARACTERS 


002706 


005001 








aR 


Rl 


1 COUNT OF CHARACTEftS RECEIVED 


002710 


012777 


133503 


010626 




NOV 


#133503. 80HLPR 


(SET UP SPEED FOR 9600 BAUD 
tS BITS PEP CHARACTER. 
(AUTO ECHO ENABLED ON LINE 6 


002716 


012777 


000100 


010626 




NOV 


nOO.BOHBAR 


iSET BAR BIT FOR LINE 6 


002724 


105777 


010610 




2»: 


TSTB 


SOHSCR 


{WAIT FOR CHARACTER TO 


002730 


100375 








BPL 


21 


(BE RECEIVED 


002732 


005201 








INC 


Rl 


(UPDATE RECEIVED CHARACTER COUNT 


002734 


017704 


010602 






NOV 


80HNRC,R4 


(READ CHARACTER 


002740 


020467 


011360 






CMP 


R4.TyRD6 


(IS CHARACTER CORRECT 
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S£Q 37 



002744 
002746 
002752 
002756 
002756 
002760 
002762 
002764 
002766 
002770 
002776 
003000 



003002 



001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000007 
000200 
000007 



011352 
010566 



3): 



100000 010546 



BEQ 
MOV 
CLR 
HLT 
EMT 
BR 
DEC 
BGT 
BMI 
BIG 
BR 

4): SCOPE 
LINe-LINE*l 
BITX-BITXfBITX 
KX-KX«1 

AUTOl \LINE.\BITX,\KX 



3* 

TUR06.R5 
SOHLPR 
0 
0 
4* 
RO 
2* 
4* 

#100000, SOHLPR 
21 



;(R5)-EXPECTE0 CHARACTER 
(SHUT OFF AUTO ECHO 
{CHARACTER ECHOED INCORRECTLY 

{RESTART TEST 

I IF 64 CHARACTERS HAVE NOT 
(BEEN RECEIVED, CONTINUE 

(SHUT OFF AUTO -ECHO 
(GET 1 MORE CHARACTER 
iCHECK FOR I1ERATI0NS. LOOP 



003002 








IS \XN. 100.41 




003002 


012767 


000340 


174766 


TIO: 


nov 


•340, PS 


003010 


012767 


000100 


010570 




rtov 


•lOO.ICOUNT 


003016 


012767 


003156 


010556 




MOV 


Mt.ESCAPf 










.IF NB 


<> 














nov 


•.FREEZl 










.ENDC 






000011 






XN-XN«1 






003024 


012777 


004000 


010506 




NOV 


«eiT11.80HSCR 


003032 


004767 


010342 




It: 


JSR 


PC.CLRM.L 


003036 


012777 


000007 


010474 




NOV 


•7.«MSCR 


003044 


012777 


177777 


010476 




NOV 


•'l,$Dmt 


003052 


012777 


014326 


010466 




NOV 


tTUROT.MHBA 


003060 


012700 


000100 






NOV 


•lOO.RO 


003064 


005001 








aR 


Rl 


003066 


012777 


133503 


010450 




NOV 


•ISSSOS.ttHLPR 


003074 


012777 


000200 


010450 




NOV 


•SOO.iOHBAR 


003102 


105777 


010432 




21: 


TSTB 


ttHSCR 


003106 


1003 75 








BPL 


21 


003110 


005201 








INC 


Rl 


003112 


017704 


010424 






NOV 


ROHNRC »R4 


003116 


020467 


011204 






OV> 


R4,TyR07 


003122 


001406 








B£Q 


3* 


003124 


016705 


011176 






NOV 


nM07.R5 


003130 


005077 


010410 






CLR 


SOHLPR 


003134 










HLT 


0 


003134 


104000 








ENT 


0 


003136 


000407 








BR 


41 


003140 


005300 






3>: 


DEC 


RO 


003142 


003357 








BGT 


2> 



(ENABLE AUTO ECHO ON tlHE 7 
(TRANSMIT ONE CHARACTER ON LINE 7 
(AT 9600 BAUD. 8 BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AlHO ECHO. 
(EXACTLY ONE NORE CHARACTER SHOUU) SE RECEIVED. 



(DISABLE ALL INTERRUPTS 
(SCT UP FOR 100 HERATIONS 
(Sn UP TO ESCAPE TO NEXT TEST 



s SET UP TO LOOP tllTH DATA 



i MASTER aEAR INTERFACE 
taEAR ALL BYTE COUNT AN 
(BUS AOOREK REGISTERS 
(SaeCT LDC 7 
iSET BYTE COUNT TO 1 

I SET UP AOOItESS OF CHWACTER TO BE TRANSMITTED 

(SET UP TO RECEIVE 64 CHARACTERS 

(COUNT OF CHARACTERS RECEIVED 

(SET UP SP^ FOR 9600 BAUD 

iS BITS PER CHARACTER. 

I AUTO ECHO ENAm.EO ON LINE 7 

(SET BAR BIT FQR LINE 7 

tVMZT FOR OiARACTER TO 

(BE RECEIVEO 

(UPDATE RECEIVED CHARACTER COUNV 

(REAO CHARACTER 

tIS CHARACTER CORRECT 

{(RS)-EXPeCTCO CHARACTER 
(SHUT OFF AUTO ECHO 
(CHARACTER ECHOED INCORRECTLY 

(RESTART TEST 

(IF 64 CHARACTERS HAVE NOT 
(BEEN RECEIVEO. CONTINUE 
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SEQ 3a 



003144 100404 

003146 042777 100000 010370 

003154 000752 

003156 104400 



003160 



000010 
000400 
000010 



eni 

BIC 
BR 

4) : SCOPE 
LINE -LINE *1 
BITX-BITX»BITX 
KX-KX*1 

AUTOl \LINE.\BITX.\KX 



4» 

•100000. 80HLPR 
2> 



J SHUT OFF AUTO -ECHO 
iGET 1 nORE CHARACTER 
(CHECK FOR ITERATIONS. LOOP 



I ENABLE AUTO ECHO ON LINE 10 

; TRANSMIT ONE CHARACTER ON LINE 10 

I AT 9600 BAUD. 8 BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
lAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO. 
(EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



003160 

003160 012767 

003166 012767 

003174 012767 



000340 174610 
000100 010412 
003334 010400 



TS \XN.100.4t 
Til: nOV 
HOV 
NOV 
.IF NB <> 

nov 

.ENDC 



•340. PS 

nOO.ICOUNT 
•4 (.ESCAPE 

•.FREEZl 





000012 






XN>XN*1 






003202 


012777 


004000 


010330 




HOV 


«eiTii,aoHscfi 


003210 


004767 


010164 




11: 


JSR 


PC.CLRALL 


003214 


012777 


000010 


010316 




HOV 


•10.SM«CR 


003222 


012777 


177777 


010320 




WV 


•-l.ttHBC 


003230 


012777 


014330 


010310 




NOV 


♦TUROlO.ttHBA 


003236 


012700 


000100 






NOV 


•100. RO 


003242 


005001 








an 


Rl 


003244 


012777 


13ZS03 


010272 




NOV 


•ISSSOS.flWLPR 



003252 
003260 
003264 
003266 
003270 
003274 
003300 
003302 
003306 
003312 
003312 
003314 
003316 
003320 
003322 
003324 
003332 
003334 



003336 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000011 
001000 
000011 



000400 
010254 



010246 
011030 

011022 
010232 



010272 



21: 



100000 010212 



31: 



41; 



NOV 


•400.iOHMR 


TSTB 


aOHSCR 


BPL 


21 


INC 


Rl 


NOV 


•OHMRC »R4 


CMP 


fM.TIMOlO 


BEQ 


31 


NOV 


TIMD10.R5 


aR 




HLT 


0 


ENT 


0 


BR 


4f 


DEC 


no 


B6T 


21 


BNI 


41 


BIC 


•100000. MM 


BR 


21 


SCOPE 





LINE -LINE* 1 

BITX-BITX*BITX 

KX-KX*1 

AUTOl \LINE.\BITX.\KX 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO NFiXT TEST 

(SET UP TO LOOP iOTH DATA 



t 3 



(MASTER aEAR INTERFACE 
(CLEAR ALL BYTE COUNT AN 
(BUS AOORESS REGISTERS 
(SELECT LINE 10 
(SET tYTE COUNT TO 1 

iSET UP AOORESS OF CNMAaER TO BE TRANSNITTED 

iSET UP TO RECEIVE 64 CHARACTERS 

tCOUNT OF CHARACTERS RECEIVEO 

iSET UP SPEED FOR «600 UUD 

>B BHS PER CHARACTER. 

lAUrO ECHO ENAILED ON LIIC 10 

iSET tAR Bn FOR LINE 10 

lUAZT FOR CHARACTER TO 

tSE RECEIVED 

tUPOATE RECEIVEO CHARACTOt COUNT 

iREAO CHMACTER 

lis CHMIMTEII CORRECT 

l(RS>-EXPECTEO CHARACTER 
{SHUT OFF AUTO ECHO 
tCHAMICTER ECHOED INCORRECTLY 

iRESTART TEST 

tIF 64 CHARACTERS HAVE NOT 

(BEEN RECEIVED. CONTINUE 

iSHUT OFF AUTO-ECHO 
(GET 1 NQRE CHARACTER 
(CHECK FOR ITERATIONS. LOOP 
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SEQ 39 



003336 

003336 012767 

003344 012767 

003352 012767 



003360 
003366 

003372 
003400 
003406 
003414 
003420 
003422 



003430 
003436 
003442 
003444 
003446 
003452 
003456 
003460 
003464 
003470 
003470 
003472 
003474 
003476 
00 3500 
003502 
003510 
003512 



003514 



000013 
012777 
004767 

012777 
012777 
012777 
012700 
005001 
012777 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000012 
002000 
000012 



{ENABLE AUTO ECHO ON LINE 11 
iTRANSNIT ONE CHARACTER ON LINE 11 
(AT 9600 BAUD. 8 BITS. 

I RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
{AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
{EXACTLY ONE HORE CHARACTER SHOULD BE RECEIVED. 



000340 174432 
000100 010234 
003512 010222 



004000 
010006 

000011 
177777 
014332 
000100 



010152 



010140 
010142 
010132 



TS \XN.100.4t 
T12: NOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENDC 
XN-XN«1 

NOV 



II: 



133503 010114 



001000 
010076 



010070 
010654 

010646 
010054 



010114 



21: 



100000 010034 



St: 



41; 



JSR 

NOV 
NOV 

nov 

NOV 

aR 

NOV 



nov 

TSTB 

BPL 

INC 

NOV 

CMP 

8EQ 

NOV 

aR 

»CT 

EHT 

M 

DEC 

B6T 

ani 

BIC 
BR 

SCOPE 



•340. PS 
•lOO.ICOUNT 
•4 1. ESCAPE 

•.FREEZl 



•BIT11.80HSCR 
PC.CLRALL 

•ll.ttHSCR 

•-l.»HBC 

♦TUROll.nHBA 

*100.R0 

Rl 

•133503. aOHLPR 



•lOOO.flHCAR 

■WSCR 

2t 

Rl 

«>HNRC.R4 
R4,TlltOU 
31 

lyRDll.RS 

«}M.PR 

0 

0 

41 

RO 

2« 

41 

•100000. BOMLPR 
2t 



LI*«-LINE*1 

BITX-eiTX»BITX 

KX«KX«1 

AUTOl \LINC.\BITX.VKX 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



t 3 



(MASTER CLEAR INTERFACE 
(CLEAR ALL BYTE COUNT AN 
(BUS ADDRESS REGISTERS 
(SELECT LINE 11 
(SET BYTE COUNT TO 1 

(SET UP ADDRESS OF CHARACTER TO BE TRAI^hlTTEO 

(SET UP TO RECEIVE 64 CHARACTERS 

(COUNT OF CHARACTERS RCCCIVEH 

(SET UP SPEED FOR 9600 VAuO 

(B BnS PER CHARATTEm. 

lAUTO ECHO ENABLED ON LIIC 11 

iSET BAR BIT FOR LINE 11 

lUAIT FOR OWRACTER TO 

iBE RECEIVED 

(UPDATE RECEIVED CHARACTER COUNT 

iREAO CHMACTER 

«IS CHARACTER CORRECT 

tCRS}-EXPECTED CHARACTER 
iSHUT OFF AUTO ECNO 
(CHARACTER ECHOED INCORRECTLY 

(RESTART TEST 

llf 64 CHARACTERS HAVE NOT 
(BEEN RECEIVED. CONTINUE 

(SHUT OFF AUTO-ECHO 
(GET 1 MORE CHARACTER 
(CHECK FOR ITERATIONS. LOOP 



(ENABLE AUTO ECHO ON LINE 12 
(TRANSMIT ONE CHARACTER QN LINE 12 
(AT 9600 BAUD. S BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED. OISAtLE AUTO ECNO. 
(EXACTLY ONE NONE CHARACTER SHOULD BE RECEIVED. 



CZOHH-CO 



nACRO V04.00 27-JUN-8S 13:04:20 PAGE 23-9 



SEQ 40 



003514 








TS \XN. 100.41 




003514 


012767 


000340 


174254 


T13: 


nov 


4340. PS 


003522 


012767 


000100 


010056 




nov 


♦lOO.ICOUNT 


003530 


012767 


003670 


010044 




nov 


•41. ESCAPE 










Tr MB 
















nov 












.ENOC 








000014 






XN-XN*1 






003536 


012777 


004000 


007774 




nov 


«eiT11.80HSCR 


003544 


004767 


007630 




1): 


JSR 


PC.CLRALL 


003550 


012777 


000012 


007762 




nov 


412.80HSCR 


003556 


012777 


177777 


007764 




nov 


4-1.80HBC 


003564 


012777 


014334 


007754 




nov 


♦TUR012.80HBA 


003572 


012700 


000100 






nov 


4100.ro 


003576 


005001 








CLR 


Rl 


003600 


012777 


133503 


007736 




MOV 


♦133503. 80HL PR 


003606 


012777 


002000 


007736 




nov 


42000. 80HBAR 


003614 


105777 


007720 




2): 


TSTB 


80HSCR 


003620 


100375 








BPL 


21 


0C3622 


005201 








INC 


Rl 


0C3624 


017704 


007712 






nov 


M>HNRC.R4 


003630 


020467 


010500 






CMP 


R4.TUR012 


003634 


001406 








BEQ 


3* 


003636 


016705 


010472 






nov 


TyR012.R5 


003642 


005077 


007676 






CLR 


80HLPR 


003646 










HLT 


0 


003646 


104000 








Eni 


0 


003650 


000407 








BR 


4) 


003652 


005300 






S(: 


DEC 


ftO 


003654 


003357 








BGT 


2* 


003656 


100404 








Bni 


41 


003660 


042777 


100000 


007656 




BIC 


4100000. 80HLPR 


003666 


000752 








BR 


21 


003670 


104400 






41: 


SCOPE 





003672 



000013 
004000 
000013 



LINE-LINE*! 

BITX-BITX»8ITX 

KX-KX»1 

AUTOl \LIN€.\eiTX.\KX 



t DISABLE ALL INTERRUPTS 

J SET UP FOR 100 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 

jSET UP TO LOOP WITH DATA 



J 3 



(MASTER CLEAR INTERFACE 
J CLEAR ALL BYTE COUNT AN 
(BUS ADDRESS REGISTERS 
(SELECT LINE 12 
(SET BYTE COUNT TO 1 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

(SET UP TO RECEIVE 64 CHARACTERS 

(COUNT OF CHARACTERS RECEIVED 

(SET UP SPEED FOR 9600 BAUD 

(8 BITS PER CHARACTER. 

(AUTO ECHO ENABLED ON LINE 12 

(SET BAR BIT FOR LINE 12 

(WAIT FOR CHARACTER TO 

(BE RECEIVED 

(UPDATE RECEIVED CHARACTER COUNT 

(READ CHARACTER 

sIS CHMACTER CORRECT 

i(R5)-EXPeCTED CHARACTER 
(SHUT OFF AUTO ECHO 
(CHARACTER ECHOED INCOmECTLY 

(RESTART TEST 

(IF 64 CHARACTERS HAVE NOT 
(BEEN RECEIVED. CONTINUE 

(SHUT OFF AUTO -ECHO 
(GET 1 MORE CHARACTER 
(CHECK FOR ITERATIONS. LOOP 



(ENABLE AUTO ECHO ON LINE 13 
(TRANSMIT ONE CHARACTER ON LINE 13 
(AT 9600 BAUD. B BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
(EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



003672 



TS \XN,100.4) 



003672 012767 000340 174076 T14; MOV 
003700 012767 000100 007700 MOV 
003706 012767 004046 007666 MOV 

.IF NB <> 
MOV 

.ENOC 

000015 XN-XN'l 



4340. PS 
4100.IC0UNT 
•4), ESCAPE 

♦.FREEZl 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 100 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 
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SEQ 41 



003714 


012777 


004000 


007616 




MOV 


•6IT11.6DHSCR 


003722 


004767 


007452 




It: 


JSR 


PC. CLR ALL 


003726 


012777 


000013 


007604 




MOV 


•13,flOHSCR 


003734 


012777 


17777"» 


007606 




MOV 


•-l.flOHBC 


003742 


012777 


014336 


007576 




MOV 


•TUR013.80HBA 


003750 


012700 


000100 






MOV 


«100,R0 


003754 


005001 








CLR 


Rl 


003756 


012777 


133503 


007560 




MOV 


•133503. 80HLPR 


003764 


012777 


004000 


007560 




MOV 


M000.80HBAR 


003772 


105777 


007542 




2t: 


TSTB 


80HSCR 


003776 


100375 








BPL 


2t 


004000 


005201 








INC 


Rl 


004002 


017704 


007534 






MOV 


aCHNRC.R4 


004006 


020467 


010324 






CMP 


R4.TURD13 


004012 


001406 








BEQ 


3$ 


004014 


016705 


010316 






MOV 


TUR013.R5 


004020 


005077 


007520 






CLR 


80HLPR 


004024 










HLT 


0 


004024 


1C4000 








EM7 


0 


004026 


000407 








BR 


4t 


0C4030 


005300 






3t : 


DEC 


RO 


004032 


003357 








BGT 


2t 


004034 


10040* 








BMI 


At 


004036 


042777 


100000 


007500 




BIC 


*100000,aOHLPR 


004044 


000752 








BR 


2* 


0040*0 


104400 






41 : 


SCOPE 






000014 






LINE- 


LINE*1 






010000 






BITX- 


BITX*BITX 






000014 






KX-KX 


♦ 1 




004050 








AUTOl 


\LINE.\BITX.\KX 



» MASTER CLEAR INTERFACE 
J CLEAR ALL BYTE COUNT AN 
■BUS ADDRESS REGISTERS 
(SELECT LINE 13 
jSET BYTE COUNT TO 1 

tSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 

J SET UP TO RECEIVE 64 CHARACTERS 

J COUNT OF CHARACTERS RECEIVED 

I SET UP SPEED FOR 9600 BAUD 

1 8 BITS PER CHARACTER, 

lAUTO ECHO ENABLED ON LINE 13 

J SET BAR BIT FOR LINE 13 

tUAIT FOR CHARACTER TO 

iBE RECEIVED 

I UPDATE RECEIVED CHARACTER COUNT 

sREAD CHARACTER 

J IS CHARACTER CORRECT 

j(R5)-EXPECTED CHARACTER 
;SHUT OFF AUTO ECHO 
jCHARACTE"* ECHOED INCORRECTLY 

jRESTART TEST 

:IF 64 CHARACTERS HAVE NOT 
:B£EN RECEIVED. CONTINUE 

:SHUT OFF AUfO-ECHG 
;GET 1 MORE CHARACTER 
:CHECK FOR ITERATIONS. LOOP 



: ENABLE AUTO ECHO ON LINE 14 

; TRANSMIT ONE CHARACTER ON LINE 14 

tAT 9600 BAUD. 8 BITS. 

I RECEIVE AND VERIFY CHARACTERS UNfIL 64 HAVE BEEN RECEIVED. 
! AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
{EXACTLY ONE HORE CHARACTER SHOULD BE RECEIVED. 



004050 
004050 
004056 
004064 



004072 
004100 

004104 
004112 
00412C 
004126 
004132 



012767 
012767 
012767 



000016 
012777 
004767 

012777 
012777 
012777 
012700 
005001 



000340 173720 
000100 007522 
004224 007510 



004000 007440 
007274 

000014 007426 

177777 007430 

014340 007420 
000100 



TS \XN.100.4t 
T15: MOV 
MOV 
MOV 
,IF NB <> 
MOV 

.ENOC 
XN-XN*1 

MOV 

It: JSR 

MOV 
MOV 
MOV 
MOV 
CLR 



•340. PS 
•lOO.ICOUNT 
•4 I. ESCAPE 

•.FREEZl 



•6IT11.0OHSCR 
PC. CLR ALL 

•14.S0HSCR 

•-1.S0HBC 

•TUR014.ffOHBA 

•100. RO 

Rl 



t DISABLE ALL INTERRUPTS 

tSET UP FOR 100 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP UITH DATA 



{MASTER aEAR INTERFACE 
] CLEAR ALL BYTE COUNT AN 
iBUS ADDRESS REGISTERS 
(SELECT LINE 14 
(SET BYTE COUNT TO I 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED 
(SET UP TO RECEIVE 64 CHARACTERS 
(COUNT OF CHARACTERS RECEIVED 
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SEQ 42 



004134 012777 133503 007402 



004142 

OC^ISO 

004154 

004156 

004160 

004164 

004170 

004172 

004176 

004202 

004202 

004204 

004206 

004210 

004212 

004214 

004222 

004224 



004226 



012777 
105777 
100375 
005201 
017704 
020467 
001406 
016705 
005077 

104000 
000407 
005300 
003357 
100404 
042777 
000752 
104400 
000015 
020000 
000015 



010000 
007364 



007356 
010150 

01014? 
007342 



007402 



100000 007322 





NOV 


•133503, 80HLPR 


iSET UP SPEED POR 9600 BAUD 

J 8 BITS PER CHARACTER. 

lAUTO ECHO ENABLED ON LINE 14 




MOV 


«10noO.SOHBAR 


tSET BAR BIT FOR LINE 14 


2): 


TSTB 


80HSCR 


J WAIT FOR CHARACTER TO 




BPL 


2) 


>BE RECEIVED 




INC 


Rl 


jUPDATE RECEIVED CHARACTER COUNT 




MOV 


80HNRC.R4 


{READ CHARACTER 




CMP 


R4,TUR01' 


ilS CHARACTER CORRECT 




BEQ 


3) 




MOV 


TUR014.R5 


:(R5)-EXPECTED CHARACTER 




CLR 


60HLPR 


jSHUT OFF AUTO ECHO 




HLT 


0 


1 CHARACTER ECHOED INCORRECTLY 




EMT 


0 


3) : 


BR 


4) 


I RESTART TEST 


DEC 


RO 


J IF 64 CHARACTERS HAVE NOT 




BGT 


it 


sBEEN RECEIVED. CONTINUE 




BHZ 


4» 




BIC 


♦100000, 80HLPR 


J SHUT OFF AUTO -ECHO 




BR 


2» 


jGET 1 MORE CHARACTER 


4$ : 


SCOPE 




sCHECK FOR ITERATIONS, LOOP 


LINE- 


LINe»l 




BITX- 


BITX»BITX 






KX-KX 


♦ 1 






AUTOl 


\LINE.\BITX.\KX 





004226 








TS \XP». 100.4* 




004226 


012767 


000340 


173542 


T16: 


MOV 


♦340. PS 


004234 


012767 


000100 


007344 




MOV 


♦lOO.ICOUNT 


004242 


012767 


004402 


007332 




MOV 


•4 ». ESCAPE 










.IF NB 


<> 














MOV 


#.FREEZ1 










.ENOC 








000017 






XN>XN»1 






004250 


012777 


004000 


00/262 




MOV 


•eiTll.SOHSCR 


004256 


004767 


007116 




1»: 


JSR 


PC.CLflALL 


004262 


012777 


000015 


007250 




MOV 


•15.»HSCR 


0C4270 


012777 


177777 


007252 




MOV 




004276 


012777 


014342 


007242 




MOV 


♦TUR015.80HBA 


004304 


012700 


000100 






MOV 


•100, no 


004310 


005001 








CLR 


Rl 


004312 


012777 


133503 


007224 




MOV 


«133503.80HLPR 


004320 


012777 


020000 


007224 




MOV 


♦20000. 80HBAR 


004326 


105777 


007206 




2*: 


TSTB 


80HSCR 


004332 


100375 








BPL 


2t 


004334 


005201 








INC 


Rl 


004336 


017704 


007200 






MOV 


80HNRC.R4 



I ENABLE AUTO ECHO ON LINE IS 

I TRANSMIT ONE CHARACTER ON LINE 15 

:AT 9600 BAUD. B BITS. 

:RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
J AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
{EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



{DISABLE ALL INTERRUPTS 

sSET UP FOR 100 ITERATIWiS 

; SET UP TO ESCAPE TO NEXT TEST 



iSn UP TO LOOP UITH OAfA 



{MASTER CLEAR INTERFACE 
tCLEAR ALL BYTE COUNT AN 
{BUS ADDRESS REGISTERS 
{SELECT LINE IS 
{SET BYTE COUNT T3 1 

(SET UP ADDRESS OF CHARACTER TO BE TRANSMinEO 

(SET UP TO RECEIVE 64 CHARACTERS 

{COUNT Of CHARACTERS RECEIVED 

iSn UP SPEED FOR 9600 BAUD 

;S BITS PER CHARACTER. 

(AUTO ECHO ENABLED ON LINE IS 

(SET BAR BIT FOR LINE IS 

{WAIT FOR CHARACTER TO 

!BE RECEIVED 

(UPDATE RECEIVED CHARACTER COUNT 
(READ CHARACTER 
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SEQ 43 



004342 


020467 


007774 




CMP 


R4.TUR015 


004346 


001406 






BEQ 


31 


004350 


016705 


007766 




MOV 


TUR015.R5 


004354 


005077 


007164 




CLR 


SlOHLPR 


004360 








HLT 


0 


004360 


104000 






EMT 


0 


004362 


000407 






BR 


4* 


004364 


005300 




31: 


DEC 


RO 


004366 


003357 






BGT 


21 


004370 


100404 






BMI 


41 


004372 


042777 


100000 007144 




BIC 


«100000,80HLPR 


004400 


000752 






BR 


2* 


004402 


104400 




41: 


SCOPE 






000016 




LINE- 


LINE^l 






040000 




BITX- 


BITX^BITX 






000016 




KX-KX 


*1 




004404 






AUTOl 


\L1NE.\B1TX,\KX 



J IS CHARACTER CORRECT 

!(R5)-EXPECTE0 CHARACTER 

jShUT Off AUTO ECHO 

J CHARACTER ECHOED INCORRECTLV 

^RESTART TEST 

I IF 64 CHARACTERS HAVE NOT 
I BEEN RECEIVED. CONTINUE 

{SHUT OFF AUTO -ECHO 
>GET 1 MORE CHARACTER 
jCHECK FOR ITERATIONS. LOOP 











IS \XN. 100.4$ 






012 /o 1 


OOOo40 


1/0064 


T17; 


MOV 


#340, PS 




012 re r 


000100 


OOrloe 




nov 


flOO.ICOUNT 




VXC r O r 




M71 %A 




nov 












.IF NB 


<> 














nov 


*.FREEZ1 










.ENOC 








000020 






XN>XN*1 






004426 


012777 


004000 


007104 




nov 


•BIT11.80HSCR 


004434 


004767 


006740 




1»; 


JSR 


PC.CLRM.L 


004440 


012777 


000016 


007072 




nov 


fie.VHSCft 


004446 


012777 


mm 


007074 




nov 


*-i.a)tflc 


004454 


012777 


014344 


007064 




nov 


#TUR016.«}HBA 


004462 


012700 


000100 






nov 


#100. RO 


004466 


005001 








CLR 




004470 


012777 


133503 


007046 




nov 


#133503. 


004476 


012777 


040000 


007046 




nov 


#40000. 80HBAR 


004504 


105777 


007030 




2»: 


TSTB 




004510 


100375 








BPL 


2> 


004512 


005201 








INC 


Rl 


004514 


017704 


007022 






nov 


SOHNRC .R4 


004520 


020467 


007620 






cnp 


R4,TUR016 


004524 


001406 








BEQ 


3> 


004526 


016705 


007612 






nov 


TUR016.R5 


004532 


005077 


007006 






CLR 


8DHLPR 


004536 










HLT 


0 


004536 


104000 








EMT 


0 


004540 


000407 








BR 


4> 


004542 


005300 






3»: 


DEC 


RO 



: ENABLE AUTO ECHO ON LINE 16 
{TRANSMIT ONE CHARACTER ON LINE 16 
;AT 9600 BAUD. 0 BITS. 

jRECEIVE AND VERIFY CHARACTERS I>NT1L 64 HAVE BEEN RECEIVED. 
, AFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
{EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED. 



t DISABLE ALL INTERRUPTS 

tSET UP FOR 100 ITERATIONS 

I SET UP TO ESCAPE TO NEXT TEST 

t SET UP TO LOOP WITH DATA 



: 3 



iNASTER aEAR INTERFACE 
t CLEAR ALL BYTE COiMT AN 
:BUS ADDRESS REGISTERS 
i SELECT LINE 16 
J SET BYTE COUNT TO 1 

iSET UP ADDRESS OF CHARACTER TO BE TRANSniTTED 

I SET UP TO RECEIVE 64 CHARACTERS 

iCOUNT OF CHARACTERS RECQVEO 

(SET UP SPEED FOR 9600 BAUD 

i8 BITS PER CHARACTER. 

lA-JTO ECHO ENABLED ON LINE 16 

tSET BAR BIT FOR LINE 16 

iUAIT FOR CHARACTER TO 

I BE RECEIVED 

{UPDATE RECEIVED CHARACTER COUNT 

tREAD CHARACTER 

(IS CHARACTER CORRECT 

(CRS)-EXPECTED CHARACTER 
iSHUT OFF AUTO ECHO 
(CHARACTER ECHOED INCORRECTLY 

(RESTART TEST 

(IF 64 CHARACTERS HAVE NOT 
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SEQ 44 



004544 
004546 
004550 
004556 
004560 



004562 



003357 
100404 
042777 
000752 
104400 
000017 
100000 
000017 



100000 006766 



BGT 
BMI 
BIG 
BR 

4t: SCOPE 
LINE -LINE tl 
BITX-6ITX*BITX 
KX-KX«1 

AUTOl \LINE.\BITX.\KX 



4» 

•100000. 80HLPR 
2» 



(BEEN RECEIVED, CONTINUE 

I SHUT OFF AUTO-ECHO 

:GET 1 HORE CHARACTER 

I CHECK FOR ITERATIONS. LOOP 



(ENABLE AUTO ECHO ON LINE 17 

s TRANSMIT ONE CHARACTER ON LINE 17 

lAT 9600 BAUD. 0 BITS. 

(RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED. 
(AFT^R 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO. 
(EXACTLY ONE HORE CHARACTER SHOULD BE RECEIVED. 



004562 








TS \XN. 100.4$ 






004362 


012 /Of 




1 7 V9A£ 
1 f 02U0 


T20: 


nOV 


AXAf\ DC 


sDloWLc MLL INTcRKUPTS 


004570 


012 lb 1 


UUUlvU 


AA7A 1 A 




HOV 


Al AA Tf^AI MJT 


iStl UP rOR 100 ITERATIONS 


0O45 Jo 


Al ^^Al 
AAAA91 




AA&77A 
UUO 1 fO 


.IF NB 

.true 

XN"XN* 1 


hov 
< > 
nuv 


A CDCC71 


sSti UP TO ESCAPE TO NEXT TEST 
{SET UP TO LOOP WITH DATA 




Al 

Olc ' f 1 


AAA AAA 


Art&73& 




MAU 

HUV 


vol 111. injn9i.N 


.MACTCD a CAD TMTCOCAf^f 
inns 1 EN ULEMK IfllEHrALE 




f O f 






If : 


ICO 

Jon 


or n Dii 1 


iULCfW ALL DTIE LUUN 1 UN 
iDus HUuK^sa REGISTERS 


UO^OIO 


ftl 3777 
Ulc III 




wo f 




MAU 

nuv 


Al 7 OflMCrO 
vx f . HundUn 


i 9CLC.L 1 Line 1 f 




Al 


1 77777 


AA^71& 
UUD f ID 




nuv 


V- 1 a MUnDb 


. ccT DVTc rniAiT Tn « 
IdEI BTIE LOVWI lu 1 




Al 3777 
Oit Iff 




Art<;7A& 




MAU 

nuv 


ATUDni 7 snuRA 


.CFT 10 AnnDCCC AC f^UADArTC^ TA OC 
iSCi Ur AUUKC09 Ur LrWKnLIEK 10 ifE 




Al 37 Art 


AAA1 AA 






MAU 

nuv 


w±\AJ .nV 


IStl Ur lU NCLEIVE 04 LrUWALIEK^ 












aR 




• LUUni Ur LnnHnLIEKo KELClVtl/ 




Al 37 77 
wlcf f f 








nov 


AITT^t flftUi DP 


• CPT iiD cpnrn rno <MirtA qaiih 

.11 BTTC DCD PUADAf^TCD 

|0 B1I9 rcK LnwinLlEK. 

• AUTO FCHQ FM4IU FD fMH 1 TNT 1 7 


004654 


012777 


100000 


006670 




nov 


nOOOOO.VHBAR 


(SET BAR BIT FOR LOC 17 


004662 


105777 


006652 




21: 


TSTB 


80HSCR 


tUAIT FOR CHARACTER TO 


004666 


100575 








8PL 


2» 


(BE RECEIVED 


0C4670 


005201 








INC 


Rl 


i UPDATE RECEIVED CHARACTER COUNT 


004672 


017704 


006644 






nov 


S0HNRC.R4 


iREAD CHARACTER 


004676 


020467 


007444 






CUP 


R4.TURD17 


lis CHARACTER CORRECT 


004702 


001406 








BEQ 


3t 




004704 


016705 


007436 






nov 


TIM017«R5 


t(RS)-EXPECTEO CHARACTER 


004710 


005077 


006630 






aR 


SDHLPR 


iSHUT OFF AUTO ECHO 


004714 










MLT 


0 


s CHARACTER ECHOED INCORRECTLY 


004714 


104000 








EW 


0 




004716 


000407 








BR 


4t 


{RESTART TEST 


004720 


005300 






3): 


DEC 


RO 


(IF 64 CHARACTERS HAVE NOT 


004722 


003357 








BGT 


2* 


(BEEN RECEIVED, CONTINUE 


004724 


100404 








Bni 


4t 




004726 


042777 


100000 


006610 




BIC 


♦100000. SOHLPR 


(SHUT OFF AUTO-Ea« 


004734 


000752 








BR 


2t 


(GET 1 nORE CHARACTER 


004736 


104400 






4t: 


SCOPE 




: CHECK FOR ITERATIONS. LOOP 




000020 






LINE-LINEtl 








000000 






BITX-BITX*BITX 








000020 






KX-KX^l 









i 3 
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SEQ 45 



18 
19 
20 
21 
22 
23 
25 
26 
27 
28 
29 
30 
31 
32 



004740 



000020 
000000 
000020 
000000 
000001 
000000 
000020 



XLINE-LINE 

xeiT-Biix 

K-KX 

LlNE-0 
BITX-1 
KX-0 
.IfEPT 
AU102 
.NLIST 
LINE -I INE»1 
BITX-BITX*BITX 
KX"KX»1 
.LIST 
.ENOR 

AUT02 \LINE,\BITX.\KX 



20 

\LINE.\BITX.\KX 



; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 0 
t TRANSMIT 1 CHARACTER ON LINE 0 UITH AUTO ECHO ENABLED 
sTHANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
{CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 











TS \XN.10,5» 




KAj^ f 










nuv 


nto P<; 




Vic r D ' 


WUVXv 






nuv 






Ulc rD ' 








nuv 












TP MR 
















MOV 

nu¥ 


# FREEZl 
























XN-XN*1 






004762 


012777 


004000 


006550 




HOV 


46IT11.0OHSCR 


004770 


004767 


006432 






JSR 


PC. SET ALL 


004774 


012777 


000000 


006536 




HOV 


*0.80HSCR 


005002 


012777 


014310 


006536 




HOV 


*TUROO.0OH8A 


005010 


012777 


mm 


006532 




HOV 


*-l.»HBC 


005016 


012777 


133503 


006520 




HOV 


•133503. SDHLPR 


005024 


042767 


000001 


006610 




SIC 


•l.LINACT 


005032 


012777 


mm 


006512 




HOV 


•-1.S0HBAR 


005040 


005000 








CLR 


RO 


005042 


017704 


006474 




1): 


NOV 


fiOMMRC 


005046 


100375 








BPL 


i» 


00505C 


010403 








nov 


R4.R3 


005052 


000303 








sum 


R3 


005054 


042703 


177760 






SIC 


♦177760.R3 


005060 


010302 








nov 


R3.R2 


005062 


006302 








ASL 


R2 


005064 


020327 


000000 






CMP 


R3,«0 


005070 


001432 








BEQ 


4$ 


005072 


026204 


014246 






CMP 


RBUF(R2).R4 


00507b 


001404 








BEQ 


2) 


005100 


016205 


014246 






MOV 


RBUFCR2),RS 


005104 










HLT 


1 


005104 


104001 








EMT 


1 


005106 


000423 








BR 


41 


005110 


105262 


014246 




2): 


INCB 


R6JF(R2) 



t DISABLE ALL INTERRUPTS 

sSET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP UITH DATA 



: MASTER aEAR INTERFACE 

iSET UP ALL LINES TO TRANSMIT 

;400 (KTAL) CHARACTERS 

I SELECT LINE 0 FOR TESTING 
{CHARACTER TO BE TRANSMIHEO 

iON LINE 0 IN AUTO ECHO NODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE 0 

(SET AUTO ECHO FOR LINE 0 
1 CLEAR LINE ACTI^ BH 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUNBER OF RECEIVED CHARACTERS 

iGET A CHARACTER FROM SILO 

tIF NOT VALID DATA. TRY AGAIN 

(EXTRACT LINE NUNBER FQRN CHARACTER 



iCLEAR STATUS BITS 



(IF LINE NUMBER IS 0 

(CHECK FOR CORRECT ECHOED CHARACTER 
(IF NOT LINE 0. CHECK DATA 

((R5)-EXPECTE0 NON ECHOED DATA 
(NON ECHOED DATA ERROR 



(UPDATE EXPECTED RECEIVED DATA 
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SEQ 46 



005114 


001352 








BNE 


U 


005116 


046267 


014450 


006516 




BIC 


LINBIT(R2),LINACT 


005124 


005767 


006512 




31: 


TST 


LINACT 


005130 


001344 








BNE 


11 


005132 


012777 


000000 


006400 




MOV 


*0,SDHSCR 


005140 


042777 


100000 


006376 




BIC 


*100000,8DHLPR 


005146 


105777 


006406 






TSTB 


SOHSLR 


005152 


001333 








BNE 


11 


005154 


000407 








BR 


51 


005156 


005200 






41: 


INC 


RO 


005160 


020467 


007124 






CMP 


R4 , TUROO 


005164 


001757 








BEQ 


31 


005166 


016705 


007116 






MOV 


TUROO. R5 


005172 










HLT 


2 


005 172 


104002 








EMT 


2 


005174 


104400 






S»: 


SCOPE 






000001 






LINE 


-LINEil 






000002 






BITX 


-BITXtBITX 






000001 






KX-KXtl 





005176 



AUT02 \LINE,\BITX.\KX 



s CONTINUE IF NOT DONE 
J CLEAR ACTIVE BIT 
;IF ALL LINES ARE DONE 
iEXIT 

J SELECT LINE 0 
} CLEAR AUTO ECHO FOR LINE 0 
;GET REST Of- CHARhCTERS 
I AND CHECK 

: UPDATE ECHOED CHARACTER COUNT 
;CHEv.K ECHOED DATA 

j(R5)-EXPECTED ECHOED DATA 
; ECHOED DATA ERROR 

! CHECK FOR ITERATIONS. LOOP 



t TRANSMIT A BINARY COUNT PATTERN ON AuL LINES EXCEPT LINE 1 
; TRANSMIT 1 CHARACTER ON LINE 1 WITH AUTO ECHO ENABLED 
i TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
{CHARACTER LENGTH iS 8 BITS 

; VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



005176 








TS \XN.10.5* 




005176 


012767 


000340 


172572 


T22: 


MOV 


•340, PS 


005204 


012767 


000010 


006374 




MOV 


•lO.ICOUNT 


005212 


012767 


005432 


006362 




nov 


#5*. ESCAPE 










.IF NB 


<> 














MOV 


♦.FREEZl 










.EHDC 








000023 






XN-XN*1 






005220 


012777 


004000 


006312 




nov 


«6ITll.aOHSCR 


005226 


004767 


006174 






JSR 


PC.SETALL 


005232 


012777 


000001 


006300 




nov 


n.SOHSCR 


005240 


012777 


014312 


006300 




nov 


•TUR01.80HBA 


005246 


012777 


177777 


006274 




nov 


•-1.S0HBC 


005254 


012777 


133503 


006262 




nov 


•133503. SOHLPR 


005262 


042767 


000002 


006352 




BIC 


•2.LINACT 


005270 


012777 


177777 


006254 




nov 


•-1.80HBAR 


005276 


005000 








CLft 


RO 


005300 


017704 


006236 




1«: 


nov 


80HNRC.R4 


005304 


100375 








BPL 


It 


005306 


010403 








nov 


R4.R3 


005310 


000303 








SUA8 


R3 


005312 


042703 


177760 






BIC 


•177760. R3 


005316 


010302 








nov 


R3.R2 


005320 


006302 








ASL 


R2 


005322 


020327 


000001 






CMP 


RS.^l 


005326 


001432 








BEQ 


4t 


005330 


026204 


014246 






CMP 


RBUF(R2},R4 


005334 


001404 








BEQ 


2» 



(DISABLE ALL INTERRUPTS 
J SET UP FOR 10 ITERATIONS 
{SET JP TO ESCAPE TO NEXT TEST 

{SET UP TO LOOP WITH DATA 



{MASTER CLEAR INTERFACE 

{SET UP ALL LINES TO TRANSMIT 

{400 (OCTAL) CHARACTERS 

{SELECT LINE 1 FOR TESTINI? 
{CHARACTER TO BE TRANSMITTED 

iON LINE 1 IN AUTO ECHO MODE 

{TRANSMIT ONLY I CHARACTER ON LINE 1 

{SET AUTO ECHO FOR LINE 1 
(CLEAR LINE ACTIVE BIT 

I SET BAR BITS FOR ALL LINES 

{KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 

(IF NOT VALID DATA. TRY AGAIN 

(EXTRACT LINE NUMBER FORM CHARACTER 

(CLEAR STATUS BITS 



(IF LINE NUMBER IS 1 

(CHECK FOR CORRECT ECHOED CHARACTER 
(IF NOT LINE 1. CHEC' DATA 
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SEQ 47 



D05336 


016205 


014246 






MOV 


RBUr(fi2).RS 


tCR5)'EXPECTE0 NON ECHOED DATA 


005342 










HLT 


1 


:NON ECHOED DATA ERROR 


005342 


104001 








EMT 


1 




005344 


000423 








BR 


4t 




005346 


105262 


014246 




2>: 


INCB 


RBUF(R2) 


t UPDATE EXPECTED RECEIVED DATA 


005352 


001352 








BNC 


1» 


{CONTINUE IF NOT DONE 


005354 


046267 


014450 


006260 




BIC 


LINBIT(H2}.LXNACT 


.•CLEAR ACTIVE BIT 


005362 


005767 


006254 




3»: 


TST 


LINACT 


ilF ALL LINES ARE DONE 


005366 


001344 








BNE 


U 


iEXIT 


005370 


012777 


000001 


006142 




MOV 


tfl.SOHSCR 


; SELECT LINE 1 


005376 


042777 


100000 


006140 




BIC 


«1 00000. SOHLPR 


i CLEAR AUTO ECHO FOR LINE 1 


005404 


105777 


006150 






TSTB 


SOHSLR 


iGET REST OF CHARACTERS 


005410 


001333 








BNE 


It 


iAND CHECK 


005412 


000407 








BR 


51 




005414 


005200 






4»: 


INC 


RO 


; UPDATE ECHOED CHARACTER COUNT 


005416 


020467 


006670 






CMP 


R4.TUR01 


i CHECK ECHOED DATA 


005422 


001757 








BEQ 


3t 




005424 


016705 


006662 






MOV 


TURDl.RS 


i(RS}-EXPECTED ECHOED DATA 


005430 










HLT 


2 


{ECHOED DATA ERROR 


005430 


104002 








EMT 


2 




005432 


104400 






5»: 


SCOPE 




(CHECK FOR ITERATIONS. LOOP 




000002 






LINE-LINE*1 








000004 






BITX-BITX*BITX 








000002 






KX-KX*! 








005434 








AUT02 


\LIfC.\BITX.\KX 





005434 
005434 
005442 
00S450 



I TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 2 
iTRANSniT 1 CHARACTER ON LINE 2 MITH AUTO ECHO ENABLED 
sTRANSniSSION SPEED FOR ALL LINES IS 9600 BAUD 
tCHARACTER LENGTH IS 8 BITS 

t VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



012767 000340 172334 
012767 000010 006136 
012767 005670 006124 



TS \XN.10.5t 
T25: MOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENOC 



•340. PS 
♦lO.ICOUNT 
•5*. ESCAPE 

•.FREEZl 





000024 






XN-XN*1 






005456 


012777 


004000 


0060S4 




NOV 


fBZTll.BOHSCR 


005464 


004767 


005736 






JSR 


PC. SET ALL 


005470 


012777 


000002 


006042 




NOV 


•e.BOHSCR 


005476 


012777 


014314 


006042 




NOV 


*TUR02.80HBA 


005504 


012777 


177777 


006036 




NOV 


•-1.80HBC 


005512 


012777 


133503 


006024 




NOV 


«13350S.nHLPR 


005520 


04?-'67 


000004 


006114 




BIC 


M.LZNACT 


005526 


012777 


177777 


006016 




NOV 


••l.a>NBAR 


005534 


005000 








aR 


RO 


005536 


017704 


006000 




11: 


NOV 


■)HHRC.R4 


005542 


100375 








BPL 


It 


005544 


010403 








NOV 


R4.R3 


005546 


000303 








SUAB 


R3 


005550 


042703 


177760 






BIC 


♦177760, RS 


005554 


010302 








NOV 


R3.R2 



: DISABLE ALL INTERRUPTS 
I SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP UITH DATA 



iNRSTER aEAR INTERFACE 

iSET UP ALL aNES TO TRANSNIT 

|400 ( OCTAL) CHARACTERS 

(SELECT LINE 2 FOR TESTING 
tCHARACTER TO BE TRANSNXTTED 

lON UNE 2 IN AUTO ECHO NODE 

I TRANSNIT ONLY 1 CHARACTER (M LINE 2 

iSET AUTO ECHO l-OR LINE 2 
(CLEAR LINE ACHVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUNBER OF RECEIVED CHARACTERS 

(GET A CHARACTOt FRON SILO 

I IF NOT VAUO DATA. TRY AGAIN 

lEXTRACT LINE NUNBER FQRN CHARACTER 

tCLEAR STATUS BITS 
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SEQ 40 



005556 


C06302 








ASL 


R2 




005360 


020327 


000002 






CMP 


R3,*2 ilF 


LINE NUMBER IS 2 


00SS64 


001432 








BEQ 


4$ 


i CHECK FOR CORRECT ECHOED CHARACTER 


005566 


026204 


014246 






CMP 


RBUF(R2}.R4 


:IF NOT LINE 2. CHECK DATA 


005572 


001404 








BEQ 


2« 




005574 


016205 


014246 






MOV 


RBUF(R2).R5 


;(R5)-EXPECTED NON ECHOED DATA 


005600 










HLT 


1 


{NON ECHOED DATA ERROR 


00S600 


104001 








EMT 


1 




005602 


000423 








BR 


41 




005604 


105262 


01«246 




2»: 


INCB 


RBUF(R2) 


: UPDATE EXPECTED RECEIVED DATA 


005610 


001352 








BNE 


1* 


: CONTINUE IF NOT DONE 


005612 


046267 


014450 


006022 




BIC 


LINBIT(R2),LINACT 


(CLEAR ACTIVE BIT 


005620 


005767 


006016 




3t: 


TST 


LINACT 


;IF ALL LINES ARE DONE 


005624 


001344 








BNE 


1$ 


jEXIT 


005626 


012777 


000002 


005704 




MOV 


♦2.6DHSCR 


I SELECT LINE 2 


005634 


042777 


100000 


005702 




BIC 


♦100000. 80HLPR 


: CLEAR AUTO ECHO FOR LINE 2 


005642 


105777 


005712 






TSTB 


80HSLR 


(GET REST OF CHARACTERS 


005646 


001333 








BNE 


1* 


sANO CHECK 


005650 


000407 








BR 


SI 




005652 


005200 






41: 


INC 


RO 


iUPD>'TE ECHOED CHARACTER COUNT 


005654 


020467 


006434 






CMP 


R4.TUR02 


t CHECK ECHOED DATA 


005660 


001757 








BEQ 


31 




005662 


016705 


006426 






NOV 


TURD2,R5 


:(R5}-EXPECTE0 ECHOED DATA 


00 5666 










HLT 


2 


(ECHOED DATA ERROR 


005666 


104002 








EMT 


2 




005670 


104400 






5«: 


SCOPE 




(CHECK FOR ITERATIONS, LOOP 




000003 






LINE -LINE* 1 








000010 






BITX-BITX«8ITX 








000003 






KX-kX*l 








005672 








AUT02 


\LINE.\BITX.\KX 





005672 
005672 
005700 
005706 



(TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LIIC 3 
(TRANSMIT 1 CHARACTER ON LINE 3 UITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS B BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



012767 000340 172076 
012767 000010 005700 
012767 006126 005666 



TS \XN.10.SI 
T24: NOV 
MOV 
NOV 
.IF NB <> 
NOV 

.ENDC 



tS40.PS 
•lO.ICQUNT 
«5I. ESCAPE 

#.FREE21 





000025 






XN-XN*1 






005714 


012777 


004000 


005616 




MOV 


«6IT11.0i)HSCR 


005722 


004767 


005500 






JSR 


PC. SET ALL 


005726 


012777 


000003 


005604 




MOV 


#3.SDHSCR 


005734 


012777 


014316 


005604 




MOV 


♦TURD3.8DHBA 


005742 


012777 


177777 


0C56O0 




MOV 


♦-1.80HBC 


005750 


012777 


133503 


005566 




MOV 


«133503,80HLPR 


005756 


042767 


000010 


005656 




BIC 


«10. LINACT 


005764 


012777 


177777 


005560 




MOV 


♦-1.8DHBAR 


005772 


005C00 








CLR 


RO 


005774 


017704 


005542 




11: 


MOV 


8DHNRC.R4 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER aEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 CQCTAL) CHARACTERS 

(SELECT LINE 3 FOR TESTING 
(CHARACTER TO BE TRANSMITTED 

I ON LINE 3 IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE Z 

(SET AUTO ECHO FOR LINE 3 
(CLEAR LINE ACTIVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 
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SEQ (.9 



006000 


100375 








BPL 


11 


;IF NOT VALID DATA. TRY AGAIN 


006002 


010403 








MOV 


R4.R3 


s EXTRACT LINE NUMBER FORM CHARACTER 


006004 


000303 








SUAB 


R3 




006006 


042703 


177760 






BIC 


♦177760. R3 


i CLEAR STATUS BITS 


006012 


010302 








MOV 


R3.R2 




006014 


006302 








ASL 


R2 




006016 


020327 


000003 






CHP 


R3.93 iIF 


LINE NUMBER IS 3 


006022 


001432 








BEQ 


4t 


i CHECK FOR CORRECT ECHOED CHARACTER 


006024 


026204 


014246 






CMP 


RBUF(R2).R4 


J IF NOT LINE 3, CHECK DATA 


006030 


001404 








BEQ 


21 




006032 


016205 


014246 






MOV 


RBUF(R2).R5 


i(R5) -EXPECTED NON ECHOED DATA 


006036 










HLT 


1 


iNON ECHOED DATA ERROR 


006036 


104001 








EM7 


1 




006040 


000423 








CR 


41 




006042 


105262 


014246 




2): 


INCB 


RBUF(R2) 


J UPDATE EXPECTED RECEIVED DATA 


006046 


001352 








BNE 


1» 


(CONTINUE IF NOT DONE 


006050 


046267 


014450 


005564 




BIC 


LINBIT(R2).LINACT 


iCLEAR ACTIVE BIT 


006056 


005767 


005560 




3t: 


TST 


LINACT 


iIF ALL LINES ARE DONE 


006062 


001344 








BNE 


1» 


lEXIT 


006064 


012777 


000003 


005446 




MOV 


«3.0OHSCR 


(SELECT LINE 3 


006072 


042777 


100000 


005444 




BIC 


*100000.80HLPR 


1 CLEAR AUTO ECHO FOR LINE 3 


006100 


105777 


005454 






TSTB 


a)HSLR 


>GET REST OF CHARACTERS 


006104 


001333 








BNE 


it 


lAND CHECK 


0C6106 


000407 








BR 


5t 




006110 


005200 






4t: 


INC 


RO 


lUPDATE ECHOED CHARACTER COUNT 


006112 


020467 


006200 






CMP 


R4.TWR05 


1 CHECK ECHOED DATA 


006116 


001757 








BEQ 


SI 




006120 


016705 


006172 






NOV 


TUROS.RS 


i(iB}-EXPECTED ECHOED DATA 


006124 










HLT 


2 


tECHOEO DATA ERROt 


006124 


104002 








€NT 


2 




006126 


104400 






51: 


SCOPE 




.•CHECK FOR ITERATIONS. LOOP 




000004 






LINE-LINE*1 








000020 






BITX-BITX^BITX 








000004 






KX-KX»1 








006130 








AUT02 


\LINE.\eiTX.\KX 





006130 
006130 
006136 
006144 



006152 
006160 

006164 
006172 



012767 
012767 
012767 



000026 
012777 
004767 

012777 
012777 



000340 
000010 
006364 



004000 
005242 

000004 
014320 



t TRANSMIT A BINARY COUNT PATTERN ON MJ. UNES EXOE^ LINE 4 
iTRANSHIT 1 CHARACTER ON LINE 4 UTH AUTO ECHO ENABLED 
tTMNSmSSION SPEED FOR ALL UNES IS 9600 8MD 
iCIMIMCTEK LENGTH 1$ 8 SHS 

tVERIFY THAT CORflECT DATA IS RECEIVED ON ALL LINES 



171640 
005442 
005430 



00S360 



005346 
005346 



006200 012777 177777 005342 



TS \XN.10.5« 
T25: NOV 
NOV 
NOV 
.IF NB <> 
NOV 

.ENOC 
XN-XN*1 

MOV 
JSR 

NOV 
NOV 

MOV 



•S40.PS 
nO.ICOUNT 
•5*. ESCAPE 

•.FRCEZl 



MIT1I.80HSCR 
PC. SET ALL 

M.BOHSCR 
•THR04.80HBA 

*-l.«DHBC 



iDISASLE ALL INTERflUPTS 
tSET UP FOR 10 ITERAnONS 
tSET UP TO ESCAPE TO NEXT TEST 

4 SET UP TO LOOP UITH DATA 



{MASTER aEAR INTERFACE 
tSET UP ALL LINES TO TRANSMIT 
>400 rOCTAL) CHARACTERS 
iSELECr LINE 4 FOR TESTING 
jCHARACTER TO BE TRANSMITTED 

tON LINE 4 IN AUTO ECHO MODE 
iTRANSNII ONLY 1 CHARACTER ON LINE 4 
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SEQ SO 



006206 


012777 


133503 


005330 




nov 


006214 


042767 


000020 


005420 




BIC 


006222 


012777 


177777 


005322 




MOV 


006230 


005000 








CLR 


006232 


01/704 


005304 




11: 


MOV 


006236 


100375 








BPL 


006240 


010403 








MOV 


006242 


000303 








SUAB 


006244 


042703 


177760 






BIC 


006250 


010302 








MOV 


006252 


006302 








ASL 


006254 


020327 


000004 






CMP 


006260 


001432 








BEQ 


006262 


026204 


014246 






CMP 


006266 


001404 








BEQ 


006270 


016205 


014246 






MOV 


006274 










HLT 


006274 


104001 








EMT 


006276 


000423 








BR 


006300 


105262 


014246 




21 : 


INCB 


006304 


001352 








BNE 


006306 


046267 


014450 


005326 




BIC 


006314 


005767 


005322 




31 : 


TST 


006320 


001344 








BNE 


006322 


012777 


000004 


005210 




nov 


006330 


042777 


100000 


005206 




BIC 


006336 


105777 


005216 






TST8 


006342 


001333 








BNE 


006344 


000407 








BR 


006346 


005200 






41 : 


INC 


006350 


020467 


005744 






CMP 


006354 


001757 








BEQ 


006356 


016705 


005736 






NOV 


006362 










M.T 


006362 


104002 








EHT 










SI: 


SCOPE 




000005 






LINE-LII€»1 




000040 






BiTx-errx^BiTx 




000005 






KX"KX*1 




006366 








AUT02 


\LINE. 



«1 33503, 80HLPR 
«20.LINACT 
«-l,SDHBAR 
RO 

SDHNRC.R4 
II 

R4,R3 
R3 

♦177760. R3 
R3.R2 
R2 

R3.«4 
41 

RBUF(R2}.R4 
21 

RBUF(R2}.R5 
1 
1 
41 

RBUF(R2} 
II 

LINBIT(R2).LINACT 

LINACT 

II 

M.80HSCR 

♦100000. flOHLPft 

80HSLR 

II 

51 

RO 

R4.TMf>« 
SI 

TM04.RS 

2 

2 



VBITX.SXX 



I SET AUTO ECHO FOR LINE 4 
i CLEAR LINE ACTIVE BIT 

;SET BAR BITS FOR ALL LINES 
.KEEP COWT OF Nl*1BER OF RECEIVED CHARACTERS 
I GET A CHARACTER FROM SILO 
J IF NOT VALID DATA. TRY AGAIN 
I EXTRACT LINE NUMBER FORM CHARACTER 



iCLEAR STATUS BITS 



ilF LINE NUMBER IS 4 

t CHECK FOR CORRECT ECHOED CHARACTER 
J IF NOT LINE 4. CHECK DATA 

j(R5)-EXP£CTED HON ECHOED DATA 
:NON ECHOED DATA ERROR 



jUTOATE EXPECTED RECEIVED DATA 

(CONTINUE IF NOT DONE 

(CLEAR ACTIVE BIT 

ilF ALL LINES ARE DONE 

»EXIT 

(SELECT LINE 4 
iCLEM AUTO ECHO FOR LI«C 4 
iGET REST OF CHMUCTERS 
I AW CHECK 

(UPDATE ECHOED CHARACTER COUNT 
tC»CCK ECHOED DATA 

i(R5)-EXPECTE0 ECHOED DATA 
t ECHOED DATA ERROR 



CHECK FOR ITEfMnCNS. LOOP 



iTRANSHIT A BINARY COUNT PATTERN ON ALL UNES EXCEPT LINE 5 
( TRANSMIT I CHARACTER ON LINE S UITN AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS B BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



006366 
006366 
006S74 
006402 



006410 
006416 



012767 
012767 
012767 



000027 
012777 
004767 



000340 
000010 
006622 



004000 
005004 



171402 
005204 
005172 



005122 



TS \XN.10.SI 



T26: 



.IF NB 

.ENDC 
XN-XN*1 



NOV 
NOV 
NOV 
<> 
NOV 



NOV 
JSR 



♦S40.PS 
•lO.ICOUNT 
•5 I. ESCAPE 

•.FREEZl 



♦BITll.aOHSCR 
PC. SET ALL 



(DISABLE AU INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

I SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 



( 3 
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SEQ 51 



006422 012777 000005 
006430 012777 014322 



006436 
006444 
006452 
006460 
006466 
006470 
006474 
006476 
006SOO 
006502 
006506 
006510 
006512 
006516 
006520 
006524 
006526 
006532 
006532 
0C6534 
006536 
006542 
006544 
006SS2 
C06S56 
006560 
006566 
006574 
006600 
006602 
006604 
006606 
006612 
006614 
006620 
006620 
006622 



006624 



012777 
012777 
042767 
012777 
005000 
017704 
100375 
010403 
000303 
042703 
010302 
00630» 
020327 
001432 
026204 
001404 
016205 

104001 
000423 
105262 
0013S2 
046267 
00S767 
001344 
012777 
042777 
105777 
001333 
000407 
005200 
020467 
001757 
016705 

104002 
104400 

000006 
OCOlOO 
000006 



177777 
133503 
000040 
177777 

00:046 



177760 

000005 
014246 
014246 

014C46 

014450 
005064 

OOOOOS 
100000 
004760 

005510 
005502 



006624 

006624 012767 000340 

006632 012767 000010 

006640 012767 007060 



005110 
005110 

005104 
005072 
005162 
005064 



005070 



004752 
004750 



I 400 (OCTAL) CHARACTERS 
•5.80HSCR (SELECT LINE 5 FOR TESTXHG 

♦TUR05.00HBA {CHARACTER TO BE TRANSHITTEO 

(ON LINE 5 IN AUTO ECHO WOE 
iTRANSHIT ONLY 1 CHARACTER ON LINE 5 
:SET AUTO ECHO FOR LINE 5 
i CLEAR LINE ACTIVE BIT 

jSET BAR BITS FOR ALL LINES 
;KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
{GET A CHARACTER FROM SILO 
ilF NOT VALID DATA. TRY AGAIN 
I EXTRACT LINE NUMBER FORM CHARACTER 



MOV 
MOV 

MOV *-1.80HBC 

MOV «133503.80HLPR 

BXC MO.LINACT 

MOV •-l.flOHBAR 

CLR RO 

It: MOV aDHNRC.R4 

BPL 1« 

MOV R4.R3 

SWAB R3 

BIC #177 760. R3 

MOV R3.R2 

ASL R2 

CMP R3.#5 

BcQ 41 

CMP RBUF(R2).R4 

BEQ 2) 

MOV RBUF(R2).R5 

HLT 1 

EMT 1 

BR 4t 

21: INC8 R6UF(R2) 

BNE II 

BIC (.INBIT(R2).LXNACT 

S»: TST LINACT 

BNE II 

MOV •S.aOHSCR 

BIC tlOOOOO.aOM.PR 

TSTB SOKSLR 

BNE II 

BR SI 

41: me RO 

CMP R4,TUCDS 

BEQ St 

MOV TUROS.RS 

HLT 2 

EMT 2 
51 : SCOPE 
LINE«tINE*l 
BITX*BITX*BITX 
KX-KX*1 

AUT02 \LIlC.\BnX.\KX 



(CLEAR STATUS BITS 



>IF LINE NUMBER IS 5 

(CHECK FOR CORRECT EO40E0 CHARACTER 
(IF NOT LINE 5. CHECK DATA 

i(RS)-EXPECTE0 NON ECHOED DATA 
iNON ECHOED DATA ERROR 



(UPDATE EXPECTED RECEIVED DATA 
(CONTINUE IF NOT DONE 
(CLEAR ACTIVE BIT 
(IF ALL LINES ARE DONE 

(EXIT 

(SELECT LINE 5 
I CLEAR AUTO ECHO FOR LIME 5 
(GET REST OF CHARACTERS 
(AND CHECK 

(UPDATE ECHOED CHARACTER COUNT 
iCMECK ECHOED DATA 

tCRS)-EXPECTED ECHOED DA^A 
tECHOEO DATA ERROR 

iCHECK FOR ITERATIONS. LOOP 



(TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 6 
(TRANSMIT 1 CHARACTER ON LINE 6 WITH AUTO ECHO ENABLED 
I TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS B BITS 

iVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



J 71144 
004746 
004734 



TS \XN.10.5I 
T27: MOV 
MOV 
MOV 
.IF NB <> 



♦340. PS 
•lO.ICOUNT 
•St. ESCAPE 



(DISABLE ALL INTERRUPTS 

(SET UP FOR 10 ITERATIONS 

J SET UP TO ESCAPE TO NEXT TEST 
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S£Q S2 



000030 

006646 012777 004000 004664 

006654 004767 004546 

006660 012777 000006 004652 

006666 012777 014324 004652 



.ENDC 
XN-XN*1 



nov 



006674 
006702 
006710 
006716 
006724 
006726 
006732 
006734 
006736 
006740 
006744 
006746 
0067S0 
006754 
006756 
006762 
006764 
006770 
006770 
006772 
006774 
007000 
007002 
007010 
007014 
007016 
007024 
007032 
007036 
007040 
007042 
007044 
007050 
007052 
007056 
007056 
007060 



007062 



012777 
012777 
042767 
012777 
005000 
017704 
100375 
010403 
000303 
042703 
010302 
006302 
020327 
001432 
026204 
001404 
016205 

104001 
000423 
105262 
001352 
046267 
005767 
001344 
012777 
042777 
105777 
001333 
000407 
005200 
020467 
001757 
016705 

104002 
104400 
000007 
000200 
000007 



177777 
133503 
000100 
177777 

004610 



177760 

000006 
014246 
014246 

014246 

014450 
004626 

000006 
100000 
004522 

005254 
005246 



004646 
004634 
004724 
004626 



Hi 



004632 



004514 
004512 



2f : 



31: 



41: 



5«: 



nov 

JSR 

nov 
nov 

nov 
nov 

BIC 

nov 

CLR 

nov 

BPL 

nov 

SWAB 
BIC 

nov 

ASL 
CUP 
BEQ 

CUP 

BEQ 

NOV 

M.T 

ENT 

BR 

INC8 



BIC 

TST 



mv 

BIC 
TSTB 



BR 

INC 

cnp 

BEQ 

NOV 
NLT 
EHT 
SCOPE 



«.FREEZ1 



«eiT11.0OHSCR 
PC, SET ALL 

46.SDHSCR 
•TUR06.80HBA 



•-l.flOHBC 
•133503. «>HLPR 
«100.LINACT 
4-l.SOHBAR 
RO 

80HNRC.R4 
1« 

R4.R3 
R3 

•177760.R3 
R3.R2 
R2 

ft3.«6 
41 

RBUF(I(2).R4 
21 

ilBUF(R2).R5 
1 
1 
4t 

QBUF(R2) 
II 

LII«IT(I(2).LIIMCT 

•e.aoHSCR 

•100000. 80»I.P« 

ttHSLR 

II 

51 

RO 

M.TIM06 
SI 

TlMM.ftS 

2 

2 



iSET UP TO LOOP WITH DATA 



iMASTER CLEAR INTERFACE 
I SET UP ALL LINES TO TRANSMIT 
|400 (OCTAL) CHARACTERS 
i SELECT LINE 6 FOR TESTING 
(CHARACTER TO BE TRANSNITTED 

lON LINE 6 IN AUTO ECHO NODE 
iTRANSmT ONLY 1 CHARACTER ON LINE 6 
I SET AUTO ECHO FOR LINE 6 
I CLEAR LINE ACTIVE BIT 

I SET BAR BITS FOR ALL LINES 
iKEEP COUNT OF NUMBER OF RECEZVEO CHARACTERS 
iGET A CHARACTER FROM SILO 
I IF NOT VALID DATA. TRY AGAIN 
(EXTRACT LINE NUNBO) FORtt CHARACTER 



LINE-LINE* 1 
BITX-BITX*BITX 
KX-KX»1 

MIT02 \LINE.\BITX.\KX 



(CLEAR STATUS BITS 



iIF LINE NUNBCR IS 6 

iCNECK FOR CQMECT ECNQEO CNMMCTER 
iZF NOT LINE «. CHECK MTA 

i(IIS)*EXPECTEO NQN ECHOED DATA 
iNQN ECHOED MTA EHKK 



tUraATE EXPECTED RECQ^ DATA 

iCONTINUE IF NOT DONE 

iCUMt ACTIVE BIT 

lIF ALL Lacs ARE DONE 

lEXIT 

tSCLECT LINE 6 
iCLEAR AUTO ECHO FOR LINE 6 
i6ET REST OP CMMttCTERS 
iMD CtCCK 

tUPOATE ECHOED OMRACTER COUNT 
iCNEOC ECNQEO DATA 

t(IIS)"EXPECTED ECHOED DATA 
(ECHOED DATA ERROR 

tCICCK FOR ITERATIONS. LOOP 



t TRANSMIT A BINARY COUNT PATTERN ON ALL LIICS EXCEPT LINE 
(TRANSMIT 1 CHARACTER ON LINE 7 UITN AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS fiOO BAUD 
(CHARACTER LENGTH IS B BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 
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SEQ SS 



007062 








TS \XN.10 ' . 






007062 


012767 


000340 


170706 


T30: 


nov 


•340. PS 


iOISABLE ALL INTERRUPTS 


007070 


012767 


000010 


004510 




nov 


tlO.ICOUNT 


iSET UP FOR 10 ITERATIONS 


007076 


012767 
000031 


007316 


004476 


.IF NB 

.ENOC 
XN-XN»1 


nov 

<> 

nov 


•51. ESCAPE 
•.FREEZl 


iSET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA s 3 


007104 


012777 


004000 


004426 




nov 


•eiTll.SOHSCR 


.MASTER CLEAR INTERFACE 


007112 


004767 


004310 






JSR 


PC, SET ALL 


(SET UP ALL LINES TO TRANSMIT 
;400 (OCTAL) CHARACTERS 


007116 


012777 


000007 


004414 




nov 


•7.80HSCR 


(SELECT LINE 7 FOR TESTING 


007124 


012777 


014326 


004414 




nov 


•TUR07.SDHBA 


{CHARACTER TO BE TRANSMITTED 

iON LINE 7 IN AUTO ECHO MODE 


007132 


012777 


177777 


004410 




nov 


•-1.8DHBC 


.TRANSMIT ONLY I CHARACTEP ON LINE 7 


007140 


012777 


133503 


004376 




nov 


•133503. 80HLPR 


iSET AUTO ECHO FOR LINE 7 


007146 


042767 


000200 


004466 




BIC 


•200.LINACT 


;CLEA.l LINE ACTIVE BIT 


007154 


012777 


177777 


004370 




nov 


•-1.S0HBAR 


{SET BAR BITS FOR ALL LINES 


007162 


005000 








CLR 


RO 


jKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 


007164 


017704 


004352 




1»: 


nov 


80HNRC.R4 


iGET A CHARACTER FROM SILO 


007170 


100375 








BPL 


11 


tIF NOT VALID DATA, TRY AGAIN 


007172 


010403 








nov 


R4.R3 


{EXTRACT LINE NUMBER FORM CHARACTER 


007174 


000303 








SUM 


R3 




0C7176 


042703 


177760 






BIC 


•177760. RS 


{CLEAR STATIS BITS 


007202 


010302 








nov 


R3.R2 




007204 


006302 








ASL 


R2 




007206 


020327 


000007 






DIP 


R3.^7 


]IF LINE NUMBER IS 7 


007212 


001432 








BEQ 


41 


tCKECK FOR CORRECT ECHOED CHARACTER 


007214 


026204 


014246 






DIP 


R6UF(R2).R4 


;IF NOT LINE 7, 0«CK DATA 


007220 


001404 








BEQ 


21 




007222 


016205 


014246 






nov 


R6UF(R2).RS 


;(R5) -EXPECTED NON ECHOED DATA 


007226 










HLT 


1 


i*IQN EO4QE0 DATA ERROR 


007226 


104001 








EnT 


1 




007230 


000423 








BR 


41 




007232 


105262 


014246 




2*: 


INCB 


RBUF(R2) 


{UPDATE EXPECTED RECEIVED DATA 


007236 


001352 








BNE 


1* 


{CONTINUE IF NOT DONE 


007240 


046267 


014450 


004374 




BIC 


Lir«IT(R2).LINACT tCLEAR ACTIVE BIT 


007246 


005767 


004370 




3*: 


TST 


LINACT 


ilF ALL LINES ARE DONE 


007252 


001344 








BNE 


1* 


{EXIT 


007254 


012777 


000007 


004256 




NOV 


•7.S0HSCR 


{SELECT LINE 7 


007262 


042777 


100000 


004254 




BIC 


•100000. OMLPR 


{CLEAR AUTO ECHO FOR LINE 7 


007270 


105777 


004264 






TSTB 


80HSLR 


{GET REST OF CHARACTERS 


007274 


001333 








BNE 


It 


{AND CHECK 


007276 


000407 








BR 


51 




007300 


005200 






4*: 


INC 


RO 


{UPDATE ECHOQ) CHARACTER COUNT 


007302 


020467 


005020 






cnp 


R4.TURD7 


{CHECK ECHOED DATA 


007306 


001757 








BEQ 


3t 




007310 


016705 


005012 






nov 


TWR07.R5 


{(R5)«EXPECTED ECHOED DATA 


007314 










HLT 


2 


{ECHOED DATA ERROR 


007114 


104002 








EHT 


2 




007316 


104400 






5»: 


SCOPE 




(CHECK FOR ITERATIONS. LOOP 




000010 






LINE-LINE*! 
8ITX-BITX.B1TX 








000400 












000010 






KX-KX»1 








007320 








AUT02 


\LINE.\BITX.\KX 





{TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 10 



C2DHH-C0 



MACRO V04.00 27-JUN-8S 13:04:20 PAGE 23-23 



SCQ 54 



007320 








TS \XN.10.S» 








012 lb 1 


000040 


170430 


T31: 


nov 


•340, PS 




007326 


012767 


000010 


004252 




nov 


•lO.ICOUNT 




007334 


012767 


007554 


004240 




MOV 


•51. ESCAPE 












.IF NB 


< > 
















MOV 


•.PREEZl 












.ENOC 










000032 






XN-XN*1 








007342 


012777 


004000 


004170 




nov 


46IT11.00HSCR 




007350 


004767 


004052 






JSR 


PC. SET ALL 




007354 


012777 


000010 


004156 




MOV 


♦10.80HSCR 




007362 


012777 


014330 


004156 




MOV 


♦TURDlO.flOHBA 


t 


007370 


012777 


177777 


004152 




MOV 


f-l.SOHBC 




007376 


0!2777 


133503 


004140 




nov 


#133503. •DHLPR 




007404 


042767 


000400 


004230 




BZC 


•400.LINACT 


t 


007412 


012777 


177777 


004132 




nov 


•-1.S0HBAR 




0C7;20 


005000 








CLR 


RO 




007422 


017704 


004114 




1»: 


nov 


S0HNRC.R4 




007426 


100375 








BPL 


It 




007430 


010403 








nov 


R4.R3 




007432 


000303 








SUM 


R3 




007434 


042703 


x77760 






BIC 


#177760.RS 




007440 


010302 








nov 


RS.R2 




007442 


006302 








ASL 


R2 




007444 


020327 


000010 






CMP 


Rs.no 


• 


007450 


001432 








BEQ 


4t 




007452 


026204 


014246 






DIP 


RBUF(R2).R4 




007456 


001404 








BEQ 


2t 




007460 


016205 


014246 






nov 


RBUF(R2).R5 




007464 










MLT 


1 




007464 


104001 








EnT 


1 




007466 


000423 








BR 


4« 




007470 


105262 


014246 




2$: 


INC8 


RBUFCRZ) 




007474 


001352 








BNC 


11 




007476 


046267 


014450 


004136 




BIC 


LINBIT(R2).LIIMCT 


007504 


005767 


004132 




31; 


TST 


LINACT 




007510 


001344 








SNE 


It 




007512 


012777 


000010 


004020 




nov 


•lO.OCHGCR 




007520 


042777 


100000 


004016 




BIC 


«1 00000. flONLPR 




007526 


105777 


004026 






TSTB 


80HSLR 




007532 


001333 








BNE 


It 




007534 


000407 








BR 


5t 




007536 


005200 






4«: 


INC 


RO 




007540 


020467 


004564 






cnp 


R4.TUR010 




007544 


001757 








BEQ 


3t 




007546 


016705 


004556 






nov 


TUR010.R5 




007552 










HLT 


2 




007552 


104002 








EnT 


2 




007554 


104400 






5»: 


SCOPE 








000011 






LINE-LINE»1 







.TRANSMIT 1 CHARACTER ON LINE 10 UITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 



(SET UP TO LOOP UITH DATA ; 3 



(MASTER CLEAR INTERFACE 
(SET UP ALL LINES TO TRANSMIT 
(400 (OCTAL) CHARACTERS 
(SELECT LINE 10 FOR TESTING 
rER TO BE TRANSMITTED 
(ON LINE 10 IN AUTO ECHO MODE 
(TRANSMIT ONLY 1 CHARACTER ON LINE 10 
(SET AUTO ECHO FQR LINE 10 
INE ACTIVE BIT 
(SET BAR BITS FOR ALL LINES 
kKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
iGET A CHARACTER FROn SILO 
ilF NOT VALID DATA. TRY AGAIN 
lEXTRACT LINE NUMBER FORM CHARACTER 

laEAR STATUS BITS 



: NUHBCR IS 10 

iCHEOK FOR CORRECT ECHOED CHARACTER 
(IF NOT LINE 10. CHECK DATA 

i(R5)-EXPECTED NON ECHOED DATA 
iNQN ECHOED DATA ERROR 



{UPDATE EXPECTED RECEIVED DATA 

tCONTIWJE IF NOT DONE 

(CLEAR ACTIVE BIT 

I IF ALL LINES ARE DONE 

jEXIT 

(SELECT LINE 10 
(CLEAR AUTO ECHO FQR LINE 10 
iGCT REST OF 04ARACTGRS 
tAND CHECK 

(UPDATE ECHOED CHARACTER COUNT 
t CHECK ECHOED DATA 

t(RS) -EXPECTED ECHOED DATA 
; ECHOED DATA ERROR 

(CHECK FOR ITERATIONS. LOOP 



CZOHH-CO 
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SEQ 55 



007556 



00 1000 
000011 











TS \XN.10.S$ 






Al J7£7 




170212 


T32: 


nov 


#340, PS 




A4 97&7 

vie ro r 


OOOOlO 


AAA At ^ 

004014 




HOV 


tlO.ICOUNT 




Ule ro f 


At AAt 9 
OiUOic 


AAAAA9 




nov 


#5 (.ESCAPE 










.IF NB 


< > 














MOV 


••rREEZl 










.ENDC 














WU — WU 4 








<11 3777 


AA^AAA 


nnT7T9 

vU9r9e 




1QV 


fall 11 ■•ONSCR 




for 








JSR 




On7<i19 


01 5777 
MLC III 




\A/0 rev 






411.WH5CR 


v>. r ocw 


013777 

VXC III 




00X790 

1 Cw 




nov 


VIMKDII, WrwA 




01P777 

VAC r r r 


17777/ 

X * ft t f 


00'Y714 
w J r A^ 




MAW 


v-Xa wnoL 


007634 


01P777 

VAC III 


133505 


00'570P 
w J 1 vc 




MfiU 


vl333vS< Wf4.rK 


007642 


042767 


001000 


00377P 
w J r ■ c 




oxv 


41 MM 1 Tki4rT 


007650 


01P777 

VAC III 


177777 


003674 




TWV 




0076S6 

W f V 


OOSfiOO 

w JVW 








n D 


on 


007660 


017704 


003656 

W WW JW 




19 : 


nu» 


aoukior 04 


007664 


100375 








BDI 


A» 




013C03 










D4 OX 


007670 


000303 

WWW V J 








9HNB 


no 


0C7672 


042703 


177760 

JL ■ ■ ■ WV 






BZC 


41 777I>A OX 


007676 


0l0'*0? 

VA Vfc VC 








MOW 


OX D3 


007700 


006302 








RSI. 


B9 


007702 


020327 


000011 

WW WW A A 






mo 


OX 41 1 


007706 


001432 








MTU 

Bcfi 


a* 


007710 


026204 


WA^C^W 










007714 


001404 








Dtii 




007716 


016205 








•in 11 




007722 










MLT 


1 


007722 


104001 








E«T 


1 


007724 


000423 








8R 


41 


007726 


105262 


014246 




21; 


INC8 


RBUFCKS) 


007732 


001352 








ONE 


1* 


007754 


046267 


014450 


003700 




BIC 


LINBITCR2}.LINI 


007742 


005767 


003674 




3>: 


TST 


LZNACT 


007746 


001344 








BNE 


11 


007750 


012777 


OOCOll 


003562 




WV 


*11.»HSCR 


007756 


042777 


100000 


003560 




BIC 


•100000.9NLPR 


007764 


105777 


003570 






TSTB 


WHSLR 


007770 


001333 








BNE 


11 


007772 


000407 








BR 


St 


007774 


005200 






4$: 


INC 


RO 


007776 


020467 


004330 






ChP 


R4,TUR011 


C10002 


001757 








BEQ 


3> 



BITX>BITX*BITX 
KX-KXU 

AUT02 \LINE.\BITX.\KX 

I TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 11 
I TRANSMIT 1 CHARACTER ON LINE 11 UITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP WITH DATA 



i 3 



(MASTER aEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 (OCTAL) CHARACTERS 

(SELECT LINE 11 FOR TESTZNG 
(CHARACTER TO BE TRANSMITTED 

(ON LINE 11 IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTOl ON LINE 11 

(SET AUTO ECHO FOR LINE 11 
(CLEAR LINE ACTIVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUNPER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 

I IF NOT VALID DATA. TRY AGAIN 

(EXTRACT LINE NUMBER FQim CHARACTER 

(CLEAR STATUS BITS 



ilF LINE NUMBER IS 11 

{CHECK FOR CORRECT ECHOED CHARACTER 
:IF NOT LINE 11. CHECK DATA 



i(R5)-EXPECTED MM ECHOED DATA 
(NON ECHOED DATA ERROR 



lUPOATE EXPECTED RECEIVED DATA 

(CONTINUE IF NOT DONE 

laEAR ACTIVE BIT 

(IF ALL LINES ARE DONE 

(EXIT 

(SaECT LINE 11 
(CLEAR AUTO ECHO FOR LINE 11 
(GET REST OF CHARACTERS 
(AND CHECK 

(UPDATE ECHOED CHARACTER COUNT 
(CHECK ECHOED DATA 



CZOHH-CO 
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SEQ 56 



010004 016705 004322 
010010 

010010 104002 
010012 104400 

000012 

002000 

000012 

010014 



s(R5)-EXPECTE0 ECHOED DATA 
I ECHOED DATA ERROR 

i CHECK FOR ITERATIONS. LOOP 



MOV TURDll.RS 

HLT 2 

EHT 2 
5» : SCOPE 
LINE-LINE*1 
BITX-BITX*BITX 
KX-KX*1 

AUT02 \LZNE.\BITX,\KX 

J TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 12 
(TRANSMIT 1 CHARACTER ON LINE 12 WITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED TOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



010014 








TS \XN.10.5I 


010014 


012767 


000340 


167754 


T33: 


MOV 


010022 


012757 


000010 


AA 

00SSS6 




MOV 


010030 


012767 


010250 


003544 




MOV 










.IF NB 


< > 












MOV 










.ENDC 






0Q0034 






XN"XN»1 




A t AA YC 

010056 


012777 


AAAAAA 

oo#ooo 


003*7# 




nOV 


010O44 


00476/ 








JSR 


At AACA 

010030 


012777 


AAAA 1 O 
000012 


AATAilO 
00040C 




nov 


0100 5d 


Al ^^^^ 


014oM 


AA'<A£9 
OUd^DC 




WV 


Ai AAX^ 

010Uf>4 


Olc III 


1 77777 
XI 1 1 1 1 


uuo^ JO 




nOV 


A4 AA?^ 

010072 


A< 9777 

012 ' ' ' 


1 TTICAI 
13A30S 


AAYAAA 
00.3*** 




nov 


At At AA 
010100 


97^7 


AAOAAA 
OOcUOO 


OOd3A4 




Die 


At At 

OlOlOb 


Al 0777 
012 r r r 


'. 77777 
X 1 1 1 1 1 


WOd#dQ 




MOV 


At At t M 
010114 


AACAAA 
003000 








^ o 
CLR 


A t At t £ 

0101 lb 


At 77A^ 
Ol 1 f 04 


AAVAOA 
OOSVcO 




1* : 


nOV 


At At 

010122 


lOOS l3 










At At ^M. 

010124 


01040A 








now 


At *%\O0^ 










SUM 


010130 


042703 


177760 






SIC 


010134 


010302 








nov 


010136 


006302 








ASL 


010140 


020327 


000012 






CUP 


010144 


001432 








BEQ 


010146 


026204 


014246 






CMP 


010152 


001404 








BEQ 


010154 


016205 


014246 






NOV 


010160 










HLT 


010160 


104001 








EHT 


010162 


000423 








BR 


010164 


105262 


014246 




21: 


INCB 


010170 


001352 








BNE 


010172 


046267 


014450 


003442 




BIC 


010200 


005767 


003436 




3<: 


TST 


010204 


001344 








BNE 


010206 


012777 


000012 


003324 




HOV 


010214 


042777 


100000 


003322 




BIC 


010222 


105777 


003332 






TSTB 



♦340. PS 
•lO.ICOUNT 
»5». ESCAPE 

•.FREEZl 



461T11.90HSCR 

PC. SET ALL 

•12.SDHSCR 
•TUR012.S0HBA 



«-l.0t«C 
«13SS03.M>HLPR 
•2000.LINACT 
4-1.80HBAR 

(to 

fiOHNRC ,R4 
II 

R4.R3 
R3 

n77760.R3 
R3.R2 
R2 

R3.*12 
41 

RBUF(R2).R4 
2« 

R8UF(R2).R5 
1 
1 

4* 

RBUF(R2} 
II 

LI»eiT(R2).LINACT 

LINACT 

II 

n2.80HSCR 
♦100000. 80HLPR 
80HSLR 



(DISABLE ALL INTERRUPTS 
{SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

tSET UP TO LOOP WITH DATA 



(MASTER aEAR INTERFACE 
(SET UP ALL LINES TO TRANSMIT 
(400 (OCTAL) CHARACTERS 
{SELECT LINE 12 FOR TESTING 
(CHARACTER TO BE TRANSMinEO 

:0N LINE 12 IN AUTO ECHO MODE 
(TRANSMIT ONLY 1 CHARACTOt ON LINE 12 
(SET AUTO ECHO FOR LINE 12 
tCLEAR LINE ACTIVE BIT 

iSET BAR BITS FOR ALL LINES 
sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 
:GET A CHARACTER FftOM SILO 
:ir NOT VALID DATA. TRY AGAIN 
(EXTRACT LINE NUMBER FQRN CHARACTER 



t CLEAR STATUS BITS 



{IF LINE NUNBER K 12 

iCHECX FOR CORRECT ECHOED CHARACTER 
iIF NOT LINE 12. CHECK DATA 

iCRS)-EXPECTEO NQN ECHOED DATA 
iNON ECHOED DATA ERROR 



(UPDATE EXPECTED RECEIVED DATA 

(CONTINUE IF NOT DONE 

(CLEAR ACTIVE BIT 

(IF ALL LINES ARE DONE 

(EXIT 

(SELECT LINE 12 

(CLEAR AUTO ECHO FOR LINE 12 

(GET REST OF CHARACTERS 



CZOHH-CO 
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SEQ 57 



010226 


001333 






BNE 


I* 


010230 


000407 






BR 


5* 


010232 


00520O 




41: 


INC 


RO 


010234 


020467 


004074 




CMP 


R4.TUR012 


010240 


001757 






BEQ 


31 


010242 


016705 


004066 




nov 


TURD 12, R5 


010246 








HLT 


2 


010246 


104002 






EMT 


2 


010250 


1044C0 




51: 


SCOPE 






000013 




LINE -LINE* 1 






004000 




BITX-BITX«BITX 






000013 




KX-KX*1 






010252 






AUTC2 


VLINE.VBITX.VKX 



sAND CHECK 

jUPDATE ECHOED CHARACtfr COUNT 
I CHECK ECHOED DATA 

)(R5)-EXPECTED ECHOED DATA 
i ECHOED DATA ERROR 

iCHECK FOR ITERATIONS. LOOP 



s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINt 13 
; TRANSMIT 1 CHARACTER ON LINE 13 WITH AUTO ECHO ENABLED 
(TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 











TS \XN.10.5» 




vxwc^c 


Vxc f D f 


OOOXAO 


167mA 
ID fjXv 


1 M* 


nuv 


ATA/1 DC 




Ol 57117 


000010 
WW XV 






ntlV 






M 9767 


oio^o& 


00H06 




nuv 












Tr MR 


< y 














nuw 


























Afl*Afl»X 








01P777 


004000 






Mnw 
nu¥ 




01 03 A? 


004767 


0031 PO 






ICS 




010301^ 

VX Vw w 


01 P777 

VXC III 


000013 






MOV 




010314 


012777 


014336 


003224 




MOV 


•TURD13.SDHBA 


C10322 


012777 


177777 


003220 




nov 




010330 


012777 


133503 


003206 




MOV 


*133503.aOHLPR 


010336 


042767 


004000 


003276 




BIG 


•4000.LINAGT 


010344 


012777 


177777 


003200 




NOV 


•-l.ttHBAR 


010352 


005000 








CLR 


RO 


010354 


017704 


003162 




1«: 


NOV 


a0tW(C.R4 


010360 


100375 








BPL 


11 


010362 


010403 








NOV 


R4.ft3 


010364 


000303 








SUM 


R3 


010366 


042703 


177760 






BIG 


•177760. R3 


010372 


010302 








NOV 


RS.R2 


010374 


006302 








ASL 


R2 


010376 


020327 


000013 






CNP 


R3.«13 


010402 


001432 








BEQ 


41 


010404 


026204 


014246 






CMP 


ReUFCR2}.R4 


010410 


001404 








BEQ 


21 


010412 


016205 


014246 






NOV 


RBUFCR2).R5 


010416 










HLT 


1 


010416 


104001 








EHT 


1 


010420 


000423 








BR 


41 


01042? 


.105262 


014246 




21: 


INGB 


R6UF(R2} 


010426 


001352 








BNE 


11 


010430 


046267 


014450 


003204 




BIG 


LINBIT(R2}.LIN/I 



: DISABLE ALL INTERRUPTS 
:SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA ; 3 



{MASTER CLEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 (OCTAL) CHARACTERS 

(SELECT LINE 13 fW TESTING 
(CHARACTER TO BE TRANSMITTED 

(ON LINE IS IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE 13 

(SET AUTO ECHO FOR LINE 13 
(CLEAR LINE ACTIVE BH 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A GHARAGTER FROM SILO 

tIF NOT VALID DATA. TRY AGAIN 

(EXTRACT LINE NUMBER FORM CHARACTER 

(CLEAR STATUS BITS 



(IF LINE NUMBER IS IS 

(CHECK FOR CORRECT ECHOED CHARACTER 
(IF NOT LINE 13. CHECK DATA 

((R5}-EXPECTED NON ECHOED DATA 
(NQN ECHOED DATA ERROR 



(UPDATE EXPECTED RECEIVED DATA 
(CONTINUE IF NOT DONE 
(CLEAR ACTIVE BIT 



CZOHH-CO 



mCRO V04.00 27-JUN-85 13:04:20 PAGE 23-27 



SEQ 58 



010436 


005767 


003200 




3t: 


TST 


LINACT 


ilF ALL LINES ARE DONE 


010442 


001344 








BNE 


1) 


jEXIT 


010444 


012777 


000013 


003066 




nov 


♦13.80HSCR 


; SELECT LINE 13 


0104S2 


042777 


100000 


003064 




BIC 


«100000,S0HLPR 


i CLEAR AUTO ECHO FOR LINE 13 


010460 


105777 


003074 






TSTB 


SOHSlR 


J GET REST OF CHARACTERS 


010464 


001333 








BNE 


1) 


(AND CHECK 


010466 


000407 








BR 


5) 




010470 


005200 






4): 


INC 


RO 


s UPDATE ECHOED CHARACTER COUNT 


010472 


020467 


003640 






CMP 


ft4.TURDl3 


{CHECK ECHOED DATA 


010476 


001757 








BEQ 


3) 




010500 


016705 


003632 






MOV 


TURD13.R5 


!CR5)-EXPECTED ECHOED DATA 


010504 










HLT 


2 


lECHOCO DATA ERROR 


010504 


104002 








EMT 


2 




010506 


104400 






5»: 


SCOPE 




s CHECK FOR ITERATIONS, LOOP 




000014 






LINE-LINE*1 








010000 






BITX-BITX*BITX 








000014 






KX-KX»1 








010510 








AUT02 


\LZNE.\BITX.\KX 





{TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 14 
{TRANSMIT 1 CHARACTER ON LINE 14 WITH AUTO ECHO ENABLED 
{TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
{CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



AS 4 A 








TS \XN.10.5I 




Af AVI A 

010310 


Olc ro f 




ID f eou 


1 OOZ 


nuv 




A1 ARIA 


VXC r V r 


MO0 10 


003062 




MOV 


#10 ICQUNT 


010524 


012767 


010744 


003050 




MOV 


«5I. ESCAPE 










.IF NB 


<> 














MOV 


•.FREEZl 










.ENDC 








000036 






XN'XN^l 






010532 


012777 


004000 


003000 




HOV 


«6IT11,80HSCR 


010540 


004767 


002662 






JSR 


PC. SET ALL 


010544 


012777 


000014 


002766 




MOV 


•14.80HSCR 


010552 


012777 


014340 


002766 




HOV 


•TURD14.80HBA 


010560 


012777 


177777 


002762 




MOV 


•-l.VHBC 


010566 


012777 


133503 


002750 




HOV 


•133503. 80HLPR 


010574 


042767 


010000 


003040 




BIC 


•10000. LINACT 


010602 


012777 


177777 


002742 




MOV 


•-l.a>HBAR 


010610 


OOSOOO 








CLR 


RO 


010612 


017704 


002724 




It: 


HOV 


80HNRC.R4 


010616 


100375 








BPL 


It 


010620 


010403 








MOV 


R4.R3 


010622 


000303 








SWAB 


R3 


010624 


042703 


177760 






BIC 


♦177760. R3 


010630 


010302 








MOV 


R3.R2 


010632 


006302 








ASL 


R2 


010634 


020327 


000014 






CMP 


R3.*14 


010640 


001432 








BEQ 


4t 


010642 


026204 


014246 






CMP 


R6Ur(R2).R4 


010646 


001404 








BEQ 


21 


010650 


016205 


014246 






MOV 


RBUFCR2).R5 


010654 










HLT 


1 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

iSET UP TO LOOP WITH DATA 



{MASTER aEAR INTERFACE 

{SET UP ALL LINES TO TRANSMIT 

{400 (OCTAL) CHARACTERS 

(SELECT LINE 14 FOR TESTING 
(CHARACTER TO BE TRANSMITTED 

(ON LINE 14 IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE 14 

(SET AUTO ECHO FOR LINE 14 
(CLEAR LINE ACTIVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHMACTERS 

(GET A CHARACTER FROM SILO 

(IF NOT VALID DATA, TRY AGAIN 

(EXTRACT LINE NUMBER FORM CHARACTER 

(CLEAR STATUS BITS 



{IF LINE NUMBER IS 14 

(CHECK FOR CORRECT ECHOED CHARACTER 
(IF NOT LINE 14. CHECK DATA 



{(RS}-EXPECTED NON ECHOED DATA 
(NON ECHOED DATA ERROR 
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SEQ 59 



010654 


104001 








EMT 


1 




010656 


000423 








BR 


4» 




010660 


105262 


014246 




21: 


INCB 


RBUF(R2) 


sUPDATE EXPECTED RECEIVED DATA 


010664 


001352 








BNE 


It 


: CONTINUE IF NOT DONE 


010666 


046267 


014450 


002746 




BIC 


LINBIT(R2}.LINACT 


; CLEAR ACTIVE BIT 


010674 


005767 


002742 




31: 


TST 


LINACT 


:IF ALL LINES ARE DONE 


010700 


001344 








BNE 


It 


jEXIT 


010702 


012777 


000014 


002630 




MOV 


•14,80HSCR 


! SELECT LINE 14 


010710 


042777 


100000 


002626 




BIC 


•100000. flOHLPR 


iCLEAR AUTO ECHO FOR LINE 14 


010716 


105777 


002636 






TSTB 


fiOHSLR 


;GEr REST OF CHARACTERS 


010722 


001333 








BNE 


It 


:ANO CHECK 


010724 


000407 








BR 


5t 




010726 


00S2C0 






41: 


INC 


RO 


; UPDATE ECHOED CHARACTER COUNT 


010730 


020467 


003404 






CMP 


R4,TURD14 


: CHECK ECHOED DATA 


010734 


001757 








BEQ 


3t 


010736 


016705 


003376 






MOV 


TUR014,R5 


:(R5)-EXPECTE0 ECHOED DATA 


010742 










HLT 


2 


: ECHOED DATA ERROR 


010742 


104002 








EMT 


2 




010744 


104400 






5»: 


SCOPE 




{CHECK FOR ITERATIONS LOOP 




000015 






LINE -LINE a 








020000 






BITX-BITX»BITX 








000015 






KX-KX*1 








010746 








AUT02 


\LINE,\BITX,\KX 





{TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 15 
{TRANSMIT 1 CHARACTER ON LINE IS WITH AUTO ECHO ENABLED 
{TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



010746 








TS \XN.10.5t 




010746 


012767 


000340 


167022 


T36: 


MOV 


«340.PS 


010754 


012767 


000010 


002624 




MOV 


nO.ICOUNT 


010762 


012767 


011202 


002612 




MOV 


«5t. ESCAPE 










.IF NB 


<> 














NOV 


•.FREEZl 










.ENDC 








000037 






XN-XN«1 






010770 


012777 


004000 


002542 




MOV 


4BIT11.80HSCR 


010776 


004767 


002424 






JSR 


PC. SET ALL 


011002 


012777 


000015 


002530 




MOV 


*15.flOHSCR 


011010 


012777 


014342 


002530 




MOV 


«TURD15.80HBA 


011016 


012777 


177777 


002524 




nov 


*-l.SOHBC 


011024 


012777 


133503 


002512 




HOV 


M33503.S0HLPR 


011032 


042767 


020000 


002602 




BIC 


«20000. LINACT 


011040 


012777 


177777 


002504 




nov 


•-l.flDHBAR 


011046 


005000 








CLR 


RO 


011050 


017704 


002466 




It: 


nov 


80HNRC.R4 


011054 


100375 








BPL 


It 


011056 


010403 








MOV 


R4.R3 


011060 


000303 








SWAB 


R3 


011062 


042703 


177760 






BIC 


♦177760, R3 


011066 


010302 








MOV 


R3.R2 


011070 


006302 








ASL 


R2 


011072 


020327 


000015 






CMP 


R3.M5 



{DISABLE ALL INTERRUPTS 
{SET UP FOR 10 ITERATIONS 
{SET UP TO ESCAPE TO NEXT TEST 

:SET UP TO LOOP WITH DATA 



( 3 



(MASTER CLEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 (OCTAL) CHARACTERS 

{SELECT LINE IS FOR TESTING 
(CHARACTER TO BE TRANSMITTED 

(ON LINE 15 IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LINE 15 

(SET AUTO ECHO FOR LINE 15 
{CLEAR LINE ACTIVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 

(IF NOT VALID DATA. TRY AGAIN 

{EXTRACT LINE NUMBER FORM CHARACTER 

(CLEAR STATUS BITS 



(IF LINE NUMBER IS 15 



C20HH-C0 
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SEa 60 



011076 


0014Z2 








BEQ 


4» 


011100 


026204 


014246 






CMP 


RBUF(R2),R4 


011104 


001404 








BEQ 


2t 


011106 


016205 


014246 






MOV 


RBUF(R2).RS 


011112 










HLT 


1 


011112 


104001 








EMT 


1 


011114 


000423 








BR 


4) 


011116 


105262 


014246 




2$: 


INCB 


RBUr(R2) 


011122 


001352 








BNE 


1) 


011124 


046267 


014450 


002510 




k)IC 


LINBI7(R2),LINACT 


011132 


005767 


002504 




3$: 


TST 


LINACT 


011136 


001344 








BNE 


1* 


011x40 


012777 


000015 


002372 




MOV 


«15,80HSCR 


011146 


042777 


100000 


002370 




BIC 


«100000,80»«.PR 


011154 


105777 


002400 






TSTB 


80HSLR 


011160 


0013Z3 








BNE 


1$ 


011162 


000407 








BR 


5$ 


011164 


005200 






41: 


INC 


RO 


011166 


020467 


003150 






CMP 


R4,TURD15 


011172 


001757 








BEQ 


3« 


011174 


016705 


003142 






MOV 


TURD IS. R5 


011200 










HIT 


2 


AAA A A. A 

011200 


104002 








EMT 


2 


011202 


104400 






5$: 


SCOPE 






000016 






LINE 


-LINE«1 






040000 






BITX 


•8ITX*BITX 






00C016 






KX>KX«1 





011204 



AUT02 \LINE,\BITX.\KX 



: CHECK FOR CORRECT ECHOED CHARACTER 
;IF NOT LINE 15, CHECK DATA 

KKSJ-EXPECTED NGN ECHOED DATA 
:NON ECHOED DATA ERROR 



UPDATE EXPECTED RECEIVED DATA 

CONTir«JE IF NOT DONE 

CLEAR ACTIVE BIT 

IF ALL LINES ARE DONE 

EXIT 

SELECT LINE 15 

CLEAR AUTO ECHO FOR LINE 15 
iGET REST OF CHARACTERS 
lANO CHECK 

i UPDATE ECHOED CHARACTER COUNT 
: CHECK ECHOED DATA 

s(RS)-EXPECTED ECHOED DATA 
! ECHOED DATA ERROR 

; CHECK FOR ITERATIONS. LOOP 



{TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 16 
.TRANSMIT 1 CHARACTER ON LINE 16 WITH AUTO ECHO ENABLED 
: TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD 
(CHARACTER LENGTH IS 8 BITS 

(VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



011204 








TS \yN,10,5» 




011204 


012767 


000340 


166564 


T37: 


MOV 


«340.PS 


011212 


012767 


000010 


002366 




MOV 


♦lO.ICOUNT 


011220 


012767 


011440 


002354 




MOV 


«5t, ESCAPE 










.IF NB 


<> 














MOV 


«.FREEZ1 










.ENOC 








000040 






XN*XN«1 






011226 


012777 


0C4000 


002304 




MOV 


«BIT11.80HSCR 


011234 


004767 


002166 






JSR 


PC. SET ALL 


011240 


012777 


000016 


002272 




MOV 


♦16.S0HSCR 


011246 


012777 


014344 


002272 




MOV 


♦TUR016.S0HBA 


011254 


012777 


177777 


002266 




MOV 


«-l.SOHBC 


011262 


012777 


133503 


002254 




MOV 


«133503.S0HLPR 


011270 


042767 


040000 


002344 




BIC 


MOOOO.LINACT 


011276 


012777 


177777 


002246 




MOV 


«-l.SOHBAR 


011304 


005000 








CLR 


RO 


011306 


017704 


002230 




It: 


MOV 


80HNRC,R4 


011312 


100375 








BPL 


1$ 


011314 


010403 








MOV 


R4.R3 



(DISABLE ALL INTERRUPTS 
(SET UP FOR 10 ITERATIONS 
(SET UP TO ESCAPE TO NEXT TEST 

(SET UP TO LOOP UITH DATA 



(MASTER CLEAR INTERFACE 

(SET UP ALL LINES TO TRANSMIT 

(400 (OCTAL) CHARACTERS 

(SELECT LINE 16 FOR TESTING 
(CHARACTER TO BE TRANSMITTED 

I ON LINE 16 IN AUTO ECHO MODE 

(TRANSMIT ONLY 1 CHARACTER ON LI^C 16 

(SET AUTO ECHO FOR LINE 16 
(CLEAR LINE ACTIVE BIT 

(SET BAR BITS FOR ALL LINES 

(KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS 

(GET A CHARACTER FROM SILO 

I IF NOT VALID DATA, TRY AGAIN 

(EXTRACT LINE NUMBER FORM CHARACTER 
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SEQ 61 



011316 


000303 








SMAB 


R3 


011320 


042703 


177760 






BIC 


♦177760. R3 


011324 


010302 








MOV 


R3.R2 


011326 


006302 








ASL 


R2 


011330 


020327 


000016 






CMP 


R3,W16 : 


011334 


001432 








BEQ 


4) 


0113S6 


026204 


014246 






CMP 


RBUr(R2).R4 


011342 


001404 








BEQ 


2) 


011344 


016205 


014246 






MOV 


RBUF(R2),R5 


011350 










HLT 


1 


011350 


104001 








EMT 


1 


011352 


000423 








BR 


4) 


011354 


105262 


014246 




2): 


INCB 


RBUF(R2) 


011360 


001352 








BNE 


1) 


011362 


046267 


014450 


002252 




BIC 


LINBIT(R2).LINACT 


011370 


005767 


002246 




3t: 


TST 


LINACT 


011374 


001344 








BNE 


1) 


011376 


012777 


000016 


002134 




MOV 


«16.80HSCR 


011404 


042777 


100000 


002132 




BIC 


«100000.80HLPR 


011412 


105777 


002142 






TSTB 


80HSLR 


011416 


001333 








BNE 


1) 


011420 


000407 








BR 


5» 


011422 


005200 






4t: 


INC 


RO 


011424 


020467 


002714 






CMP 


R4.TURD16 


011430 


001757 








BEQ 


3t 


011432 


016705 


002706 






MOV 


TWR016.R5 


011436 










HLT 


2 


011436 


104002 








EMT 


2 


All AAt\ 

011440 


t AAA AA 
1U4400 






5»: 


SCOPE 






000017 






LINE -LINE* 1 






100000 






BITX-BITX*BITX 






000017 






KX-KX*1 






011442 








AUT02 


\LINE.>BITX.\KX 



;IF 



;CLEAR STATUS BITS 



LINE NUMBER IS 16 

J CHECK FOR CORRECT ECHOED CHARACTER 
sIF KOI LINE J 6. CHECK DATA 

i(R5)-EXPECTED NGN ECHOED DATA 
iNON ECHOED DATA ERROR 



t UPDATE EXPECTED RECEIVED DATA 

: CONTINUE IF NOT DONE 

J CLEAR ACTIVE BIT 

tIF ALL LINES ARE DONE 

sEXIT 

(SELECT LINE 16 
» CLEAR AUTO ECHO FOR LINE i6 
{GET REST OF CHARACTERS 
{AND CHECK 

:UPDATE ECHOED CHARACTER COUNT 
; CHECK ECHOED DATA 

j(R5)-EXPECTE0 ECHOED DATA 
: ECHOED DATA ERROR 

tCHECK FOR ITERATIONS. LOOP 



i TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT IJME 17 
lTRA>£taT 1 CHARACTER ON LINE 17 UITH AUTO ECHO ENABLED 
iTRANSniSSION SPEED FOR ALL LINES IS 9600 BAUD 
•CHARACTER LFNGTH IS S BITS 

{VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES 



011442 








TS \XN.10.5» 




011442 


012767 


000340 


166326 


T40: 


NOV 


•S40.P5 


011450 


012767 


000010 


002130 




NOV 


•lO.ICOUNT 


011456 


012767 


011676 


002116 




NOV 


•51. ESCAPE 










.IF NB 


<> 














NOV 


•.FREEZl 










.EM)C 








000041 






XN-XN*1 






011464 


012777 


004000 


002046 




NOV 


«BIT11.«0HSCR 


011472 


004767 


001730 






JSR 


PC.SETALL 


011476 


012777 


000017 


002034 




NOV 


•17.S0HSCR 


011504 


012777 


014346 


002034 




NOV 


•TUR017.a>HBA 


011512 


012777 


177777 


002030 




NOV 


•-1.B0HBC 


011520 


012777 


133503 


002016 




MOV 


«133503.80HLPR 


011526 


042767 


100000 


002106 




BIC 


•100000. LINACT 



i DISABLE ALL INTERRUPTS 

tSET UP FOR 10 ITERATIONS 

i SET UP TO ESCAPE TO NEXT TEST 

i SET UP TO LOOP UITH DATA 



iNASTER aEAR INTERFACE 
tSET UP ALL LINES TO TRANSNIT 
I 400 (OCTAL) CHARACTERS 
tSELECT LINE 17 FOR TESTING 

i CHARACTER TO BE TRANSMITTED 

tON LINE 17 IN AUTO ECHO MODE 

t TRANSNIT ONLY 1 CHARACTER ON LINE 

tSET AUTO ECHO FOR LINE 17 

(CLEAR LINE ACTIVE BIT 



17 
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SEQ 62 



011534 


012777 


177777 


002010 




MOV 


4-1.80HBAR 


011542 


005000 








CLR 


RO 


011544 


017704 


001772 




It: 


MOV 


80HNRC.R4 


011550 


100375 








BPL 


It 


011552 


010403 








MOV 


R4,R3 


011554 


000303 








SUAB 


R3 


011556 


042703 


177760 






BIC 


♦177760. R3 


011562 


010302 








MOV 


R3,R2 


011564 


006302 








ASL 


R2 


01 1566 


020327 


000017 






CMP 


R3,417 I 


011572 


001432 








BEQ 


4t 


011574 


026204 


014246 






CMP 


RBUF(R2),R4 


011600 


001404 








BEQ 


2t 


011602 


016205 


014246 






MOV 


RBUF(R2),R5 


011606 










HLT 


1 


011606 


104001 








EMT 


1 


011610 


000423 








BR 


4t 


011612 


105262 


014246 




2t: 


INCB 


RBUF(R2) 


011616 


001352 








BNE 


It 


011620 


046267 


014450 


002014 




BIC 


LINBIT(R2).LINACT 


011626 


005767 


002010 




31: 


TST 


LINACT 


011632 


001344 








BNE 


It 


011634 


012777 


000017 


001676 






417.80HSCR 


011642 


042777 


100000 


001674 






4«.00000.80HLPR 


A4 4 

011650 


105777 


001704 






liTB 


ttHSLR 


011654 


001333 








BNE 


It 


011656 


000407 








BR 


5t 


011660 


005200 






41: 


INC 


RO 


A4 4 £ £ O 

011662 


A^ AA £ ^ 

020467 


002460 






CMP 


R4.TUR017 


A 4 4 £ 

011666 


AA 4 

001757 








BEQ 


3t 


Olio rO 


At £ ^AC 

016705 


AAOA 

002452 






nov 


TyRon.Rs 


At t 

011674 










HLT 


2 


OHO r4 










EMT 


2 


011676 


104400 






St: 


SCOPE 






000020 






LZNE-LINE*! 






000000 






BXTX-BITX»BITX 






000020 






KX-KX*1 







lIF 



jSET BAR BITS FOR ALL LINES 

iKEEP COUNT OF Nl*1BER OF RECEIVED CHARACTERS 

J GET A CHARACTER FROM SILO 

»IF NOT VALID OAT A. TRY AGAIN 

jEXTRACT LINE NUMBER FORM CHARACTER 

iCLEAR STATUS BITS 



LINE NUMBER IS 17 

iCHECK FOR CORRECT ECHOED CHARACTER 
I IF NOT LINE 17. CHECK DATA 



t(R5)-EXPECTED NON ECHOED DATA 
iNON ECHOED DATA ERROR 



t UPDATE EXPECTED RECEIVED DATA 

t CONTINUE IF NOT DOt« 

i CLEAR ACTIVE BIT 

sIF ALL LINES ARE DONE 

»EXIT 

jSaECT LINE 17 
iCLEAR AUTO ECHO FOR lINE 17 
iGET REST OF CHARACTERS 
lAND CHECK 

;UPDATE ECHOED CHARACTER COUNT 
t CHECK ECHOED DATA 

i(RS)«EXPECTEO ECHOED DATA 
i ECHOED DATA ERROR 

iCHECK FOR ITERATIONS. LOOP 
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1 
2 
3 
4 



5 011700 








TS \XN. 100,51 




011700 


012767 


000340 


166070 


T41: 


nov 


•340, PS 


011706 


012767 


000100 


001672 




MOV 


«100,ICOUNT 


011714 


012767 


012130 


001660 




MOV 


•5t. ESCAPE 










.ir NB 


<> 














m\i 


«.FREEZ1 










.ENOC 








000042 






XN-XN«1 






6 011722 


012777 


004000 


001610 




NOV 


46IT11.80HSCR 


7 011730 


012700 


000020 






nov 


*20.R0 


8 011734 


012701 


014310 






nov 


•TUROO.Rl 


9 011740 


012702 


014350 






nov 


•RCNT0.R2 


10 011744 


012703 


014410 






nov 


•RDCT0.R3 


11 0117S0 


010177 


0015 2 




It: 


nov 


Rl.aOHBA 


12 0117S4 


012777 


177777 


001566 




nov 


•-l.aOHBC 


13 011762 


012777 


131403 


001554 




nov 


•1 31403. VHLPR 


14 011770 


005022 








CLR 


(R2)* 


15 011772 


012723 


000100 






nov 


*100.CR3}* 


16 011776 


062701 


000002 






ADO 


•2.R1 


17 012002 


005300 








DEC 


RO 


IB 012004 


001361 








BNC 


It 


19 012006 


012767 


177777 


00)630 




NOV 


f-l.AEACT 


20 

21 012014 


012777 


177777 


001530 




nov 


#-l.tf)HBAA 


22 012022 


105777 


001512 




2t: 


TST8 


80HSCR 


23 012026 


100375 








BPL 


2t 


24 012030 


017704 


001506 






nov 


tf>HNRC.R4 


25 012034 


010403 








nov 


R4.R3 


26 012036 


000303 








SUkB 


R3 


27 012040 


042703 


177760 






BZC 


•177760. RS 


29 012044 


010302 








nov 


R3.R2 


29 012046 


006302 








ASL 


R2 


30 012050 


005262 


014350 






INC 


RCIfT0(R2) 


31 012054 


020462 


014310 






CMP 


R4,TtM0C(R2) 


32 012060 


001404 








6EQ 


St 


33 012062 


016205 


014310 






nov 


TIM0<KR2}.RS 


34 012066 










MLT 


2 


012066 


104002 








EMT 


2 


35 012070 


000417 








BR 


St 


36 012072 


005362 


014410 




3t: 


DEC 


R0CTw(R2) 


37 012076 


003351 








BGT 


2t 


3S 012100 


100413 








sni 


St 


39 012102 


010377 


001432 






nov 


R3.aOHSCR 


40 012106 


042777 


100000 


001430 




BIG 


#100000. ttHLPR 


41 012114 


046267 


014450 


001522 




BIC 


UXNBIT(R2).AeACT 


42 012122 


005767 


001516 






TST 


AEACT 


43 012126 


001335 








BNE 


2t 


44 012130 


104400 






St: 


SCOPE 





{TRANSMIT 1 CHARACTER ON EACH LINE UITH AUTO ECHO ENABLED 
(RECEIVE 64 CHARACTERS ON EACH LINE 



iOISABLE ALL INTERRUPTS 
iSET UP FOR 100 ITERATIONS 
jSET UP TO ESCAPE TO NEXT TEST 



I SET UP TO LOOP UITH DATA 



{MASTER CLEAR INTERFACE 
sSET UP PARAMETERS FOR 16 LINES 
(CHARACTER TO BE TRANSMITTED 
(RECEIVED CHARACTER COUNT 
(EXPECTED NUMBER OF CHARACTERS 
(LOAD BUS ADDRESS 
(LOAD BYTE COUNT 
(SET AUTO ECHO 

(CLEAR RECEIVED CHARACTER COUNT 
(-NUMBER OF CHARACTERS TO BE RECEIVED 
(ADVANCE POINTER 
iCONTINUE IF NOT DONE 

(INDICATE AUTO ECHO ACTIVE 
iFOR AU LINES 
(SET BAR BITS F(W ALL LINES 
iUAIT FOR A CHARACTER 

:GET CHARACTBl 



lEXTRACT LSm NUMBER 



lUPOATC RECEIVEO COUNT FOR LINE 
tCHECK EXPECTED AND RECEIVEO DATA 

i(it5)-€XPECTED ECHOED DATA 
lAUTO ECHO ERROR 



tUPDATE REVIVED EXPECTED COUNT 

t CONTINUE IF NOT 0 

lEXIT IQF NEGATIVE 

t SELECT LINE THAT FTNISHEO 

I CLEAR AUTO ECHO 

I CLEAR AUTO ECHO ACTIVE 

iMa. LINES DONE 

(IF NOT. CONTINUE 

t CHECK FOR ITERATIONS. LOOP 
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S£Q 64 



2 012132 



.EOP 



t/BEGlN/ 



012132 
012134 
012136 
012142 
012146 
012152 
012156 
012160 
012162 
012164 
012166 
012170 
012172 
012172 
012200 
012200 
012204 
012206 
012210 
012212 
012214 
012216 
012220 
012224 
012226 
012230 
3 012232 



104401 
015064 

005067 001474 

005067 001424 

005267 001422 

005767 166624 

001005 

104401 

015077 

104402 

012224 

000403 

016767 001376 166602 

013701 000042 

001405 

000005 

004711 

000240 

000240 

000240 

000167 167062 
000001 

006 002 
013574 



EOP: 



2t: 
3t: 



.SCOPE 



I END OF PASS 

I TYPE NAME OF TEST 

I UPDATE PASS COUNT 

iCHECK FOR EXIT TO ACT-11 

{RESTART TEST 



TYPE 

MEPASS 

CLR 

CLR 

INC 

TST 

BNE 

TYPE 

PASTXT 

OCTASC 

PASARG 

BR 

nov 
nov 

BEQ 

RESET 



LAST 

ERRFLG 

PASCNT 

LIGHTS 

2t 



31 

PASCNT. LIGHTS 



LOGICAL: 

NOP 
NOP 
NOP 

RESTRT: JHP 
PASARG 



0*42. Rl 

RESTRT 

JSR 



PC.(Rl) 



WORD 
.BYTE 
.UORO 



BEGIN 
1 

6.2 
PASCNT 



TYPt' NAME OF TEST 



{CLEAR LAST ERROR PC 

.CLEAR ERROR FLAG 

I UPDATE PASS COUNT 

i ARE UE USING LIGHTS? 

I BRANCH IF UE ARE 

i TYPE PASCOUNT MESSAGE 

I PRINT PASSCOUNT 

I CONTINUE 

{DISPLAY PASS COUNT 

iCHECK FOR ACT-Ll OR OOP 
I IF NOT. CONHNUE TESTIN6 



4 

6 
5 
5 
4 

4 
4 



i4 t 6 



I 4 



I PMMnETCRS TO PRINT PASSCOUNT 



iCHECK FOR LOOP ON CURRENT TEST 
I CHECK FOR ITERATION SUPPRESSION 



012232 


032777 


002000 


166540 


SCQPER: 


BIT 


«SU10.«SUR 


012240 


001030 








BNE 


4t 


012242 


032777 


040000 


166530 


1«: 


BIT 


•SU14.8SMR 


012250 


001021 








BNE 


31 


012252 


032777 


004000 


166520 




BIT 


•suii.iswR 


012260 


001006 








BNE 


2« 


012262 


005267 


001322 






ZNC 


LPCNT 


012266 


026767 


001316 


001312 




CMP 


LPCNT.ICOUNT 


012274 


001007 








BNE 


3» 


012276 


005067 


001306 




21: 


aR 


LPCNT 


012302 


005067 


001264 






O.R 


ERRFLG 


012306 


011667 


001266 






MOV 


(SP),RETRH 


012312 


000002 








RTI 




012314 


016716 


001260 




3«: 


MOV 


RETRN.(SP) 


012320 


000002 








RTI 




012322 


005767 


001244 




4«: 


TST 


ERRFLG 


012326 


001745 








BEQ 


11 



I 5 
( 5 
I 5 



I 4 
I 4 
I 4 
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SEQ 65 



012330 000762 
4 012332 



012332 
012340 
012342 



032777 
001402 
016716 



012346 000002 



.SCOPl 



BR 



21 



CHECK FOR FREEZE ON CURRENT DATA 



001000 
001236 



166440 



SCOPIR: BIT 
BEO 

nov 

II: RTZ 



♦SU09.8SUR 
1» 

FREEZl.CSP) 



I 4 
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1 012350 .ERROR 



t ERROR HANDLER 



012350 


032777 


020000 


166422 


ERRORS : 


BIT 


•SU13,SSUR 


012356 


001055 








BNE 


HALTS 


012360 


021667 


001252 






CUP 


(SP).LAST 


012364 


001404 








BEQ 


11 


012366 


011667 


001244 






nov 


(SP).LAST 


012372 


005067 


001174 






CLR 


ERRFL6 


012376 


104406 






It: 


SAV05P 




012400 


011605 








nov 


(SP).R5 


012402 


162705 


000002 






SUB 


«2.RS 


012406 


011504 








nov 


(R5).R4 


012410 


006304 








ASL 


R4 


012412 


006304 








ASL 


R4 


012414 


042704 


177001 






BIC 


«177001.R4 


012420 


062704 


015216 






ADD 


«ERRTAB.R4 


012424 


012467 


000040 






nov 


(R4)«.ERRnSG 


012430 


011467 


000052 






MOV 


(R4).DATABP 


012434 


005767 


001132 






TST 


ERRFLG 


012440 


001403 








BEQ 


TYPMSG 


012442 


005767 


000040 






TST 


OATABP 


012446 


001011 








BNE 


TYPOAT 


012450 


104401 






TYPMSG: 


TYPE 




012452 


014774 








MCRLF 




012454 


104402 








OCTASC 




012456 


012554 








ERTABO 




012460 


012767 


000001 


001104 




MOV 


*1 .ERRFLG 


012466 


104401 








TYPE 


012470 


000000 






ERRHSG: 


0 




012472 


005767 


000010 




TYPOAT: 


TST 


DATABP 


012476 


001404 








BEQ 


RESREG 


012500 


104401 








TYPE 




012S02 


014774 








»1C«LF 




012504 


104402 








OCTASC 




012S06 


000000 






OATABP: 


0 




012S10 


104407 






RESREG: 


RCS05 




012512 


005777 


166262 




HALTS: 


TST 


•syR 


012516 


100005 








BPL 


EXITER 


012S20 


010046 








PUSHRO 




012522 


016600 


000002 






MOV 


2(SP).R0 


012S26 


000000 








HALT 




012S30 


012600 








POPRO 




012532 


005267 


001040 




EXITER: 


INC 


ERRCNT 


012S36 


032777 


002000 


166234 




BIT 


♦SU1O.0SMR 


012544 


001402 








BEQ 


1* 


012546 


016716 


001030 






nov 


ESCAPE. (SP) 


012552 


000002 






If: 


RTl 




0iiS5^ 


'oc:»o: 






ERTABO: 


1 




012556 


006 


002 






.BYTE 


6,2 


012560 


013630 








SAVPC 



> 3 
5 
5 
5 



: 5 
: 5 



: 4 
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012b62 



012562 
012564 
012570 
012574 
012576 
012602 
012606 
012612 
2 012614 



.TRPSRV 



J TRAP DISPATCH SERVICE 

I ARGUMENT Of TRAP IS EXTRACTED 

J AND USED AS OFFSET TO OBTAIN POINTER 

iTO SELECTED SUBROUTINE 



011646 

162716 000002 
017616 000000 
006316 

042716 177001 
062716 015136 
017616 000000 
000136 



012622 
012626 
012632 
012636 
012642 
012646 
012652 
3 012654 



012654 
012660 
012664 
012670 
012674 
012700 
012704 



010567 
010467 
010367 
010267 
010167 
010067 
000002 



016700 
016701 
016702 
016703 
016704 
016705 
000002 



000776 
000770 
000762 
000754 
000746 
000740 



000732 
000730 
000726 
000724 
^722 
000720 



TRPSRV: MOV 
SUB 

nov 

TRPOK: ASL 
BIC 
ADO 
MOV 
JHP 

.SAVREG 



(SP).-(SP) 
#2.(SP) 
8(SP),(SP) 
(SP) 

#177001. (SP) 
♦TRPTAB.(SP) 
8CSP).(SP) 
0(SP)* 



:GET PC OF RETURN 
t-PC OF TRAP 
jGET TRP 

jMULTIPLY TRAP ARG BY 2 
iCLEAR UNUANTEO BITS 
{POINTER TO SUBROUTINE ADDRESS 
{SUBROUTINE ADDRESS 
iGO TO SUBROUTINE 



012614 016667 000004 001006 



I SAVE PC OF TEST THAT FAILED AND R0-R5 
SV05P: MOV 4(SP),SAVPC 
I SAVE R0-R5 



SVOS: 



.RESREG 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RS.SAyR5 
R4.SAVR4 
R3.SAVR3 
R2.SAVR2 
Rl.SAVRl 
RO.SAVRO 



{RESTORE R0-R5 



RS05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



SAVRO.RO 
SAVRl.Rl 
SAVR2.R2 
SAVRS.RS 
SAVR4.R4 
SAVRS.R5 
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1 012706 



.TYPER 



012706 
012712 
012716 
012722 
012724 
012726 
012730 
012732 
012736 
2 01274C 



0176U5 000000 

062716 000002 

105777 000612 

100375 

105715 

001001 

000002 

112577 000600 
000767 



I TELETYPE OUTPUT ROUTINE 

TYPCR: MOV 8(SP).R5 

ADO *?.(SP) 

It: TSTB 8TPCSR 

BPL II 

TSTB (R5) 

BNE 21 

RTI 

2t: HOVB (R5)».8TPDBR 

BR It 

.INSTRG 



lASCII STRING INPUT ROUTINE 



012740 


017667 


000000 


000006 


INSTRG: 


NOV 


8(SP).nSG 


012746 


062716 


000002 






ADO 


«2.(SP) 


012752 


104401 






INSTRl: 


TYPE 




012754 


000000 






HSG: 


0 




012756 


012704 


015160 






nov 


♦INBUF.R4 


012762 


012703 


000007 






NOV 


♦7.R3 


012766 


105777 


000536 




11: 


TSTB 


8TKCSR 


012772 


100375 








BPL 


1$ 


012774 


117714 


Q00S32 






NGV8 


8TK0BR.(R4) 


013000 


142714 


000200 






BICE 


•200. (R4) 


013004 


122427 


000015 






CNPB 


CR4)*.*15 


013010 


001413 








BEQ 


INSTR2 


013012 


117777 


000514 


000S16 




nova 


8TKUBR.8TP0BR 


013020 


105777 


000510 




2<: 


TSTB 


«TPCSR 


013024 


100375 








BPL 


2* 


013026 


005303 








DEC 


AS 


013030 


001356 








BNE 


11 


013032 


104401 






INSTRE: 


TYPE 




013034 


014770 








mn 




013036 


000745 








BR 


mSTRl 


013040 


C00002 






INSrR2: 


RTI 





-co 



MACRO V04.00 27-JUN-85 13:04:20 PAGE 29 



1 013042 



.PARAMS 



J CONVERT ASCII STRING TO OCTAL 



013042 


011605 




PARAMS : 


MOV 


(SP).R5 


013044 


012567 


000146 




MOV 


(R5)». LOLIM 


013050 


012567 


000144 




MOV 


(R5)*, HILIM 


0130S4 


012567 


000142 




MOV 


(R5)*, OEVAOR 


013060 


112567 


000140 




MOVB 


(R5)*, LOBITS 


013064 


112567 


000135 




MOVB 


(R5)«.A0RCNT 


013070 


010516 






MOV 


R5 . ( SP } 


013072 


005005 




PARAMl : 


CLR 


RS 


013074 


012704 


015160 




MOV 


«INBUF.R4 


013100 


122714 


000015 




CMPB 


«15.(R4) 


013104 


001420 






BEQ 


PARERR 


013106 


121427 


000060 


11: 


CMPB 


(R4).*60 


013112 


002415 






BLT 


PARERR 


013114 


121427 


000067 




CMPB 


(R4}.*67 


013120 


003012 






BGT 


PARERR 


013122 


142714 


000060 




BICB 


«60,(R4} 


013126 


152405 






BISB 


(R4)«.R5 


013130 


122714 


000015 




CMPB 


«15.(R4} 


013134 


001406 






BEQ 


LIMITS 


013136 


006305 






ASL 


R5 


013140 


006305 






ASL 


RS 


013142 


00630S 






ASL 


R5 


013144 


000760 






BR 


1» 


013146 


104404 




PARERR: 


INSTER 




013150 


0007SO 






BR 


PARANl 










iTEST TO SEE IF NUW 


013152 


020567 


000042 


LIMITS: 


cnp 


ItS.HILIN 


013156 


101373 






8HI 


PARERR 


013160 


020567 


000032 




DIP 


RS.LQLIN 


013164 


103770 






BLO 


PARERR 


013166 


136705 


000032 




BITS 


LOBITS. R5 


013172 


001365 






BNE 


PARERR 










! STORE 


NUNSER AT SPE( 


013174 


016704 


000022 




NOV 


0CVA0R.R4 


013200 


010524 




It: 


NOV 


R5.(R4)» 


013202 


062705 


000002 




ADD 


«2.RS 


013206 


105367 


000013 




0EC6 


AORCNT 


013212 


001372 






BNE 


1* 


013214 


000002 






RTI 




013216 


000000 




LOLIM: 


0 




013220 


000000 




HILIM: 


0 




013222 


000000 




OEVAOR: 


0 




013224 


000000 




LOBITS : 


0 






013225 




AORCNT- 


L06ITS«1 





CZOHH CO MACRO V04.00 27 JUN 

013226 





Ml rOUl 


\J\jSJ\J\f\J 


Ul dc Ac 




fV\AAA3 




A1 31 iL7 


UVvlwv 




llclO r 


AAA1 0^ 




1131 £i7 


AAA1 3'< 




m Ti 117 


AAAI Of\ 






UUUX 14 




1 1 i>7fV\ 


r^AI Ail 




A1 37AA 
vie 'UU 


f\t c« 73 










nA97nT 


1 7777ft 




n&97n'Y 






XXV^CV 




























vx xo 


0O136S 




vx^^cv 


01 9703 
VXC r 


VX 


013324 


114023 






10S367 


000042 


013339 


001374 




013334 


105767 


www J 




0O14O5 




013342 


112723 

XXb ■ cw 


000240 

wvt ~w 


013346 


105367 


000023 


VX WW J£ 


WXw f w 






XV JVXW 




0133SA 

vx WW 


104401 




C13360 


015204 




013362 


005367 


000004 


013366 


001325 




013370 


000002 




013372 


000000 




013374 


000000 






013375 




013376 


000000 
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.OCTASC 

J CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 



UL InoN : 


nuv 


af CD D1 




Ann 


A3 ^ CD ^ 




nuv 


roi UDAriUT 


It. 

X* : 


nuvD 


inX J ♦ > V.nKl,n 1 




MAUO 

nuvo 


TDI ■^ * CDAI^UT 




nuv 


orOI BTUUDA 
nl J • I DXriMNU 


c» : 


nuv 


DTUUDA DA 




nuvD 






nuv 


atcmo da 

w 1 tnr a KU 




nuv 


CA ox 




DXU 


A1 7777n OX 
wX r r r r U • no 






vc wv t n O 




rnj VD 


OX rooi* 

no • \ nv ' • 






RA 

n^ 




ACQ 


RA 

n^ 






RA 

n^ 




DEC 


R5 






xt 

ov 




HOV 


AMDATA RY 




riu wo 


*fR01 fft31« 




OECB 


CHRCNT 




BNE 


4t 




TSTB 

1 W 1 V 


SPAEMT 




BEQ 


61 




HOVB 


•240 (R3)* 




OECB 


SPACNT 




BMP 




V * » 


TYPE 
HOATA 


(R3) 

V T\W ^ 




DEC 


UROCNT 




BNE 


1) 




RTl 




URDCNT: 


0 




CHRCNT: 


0 




SPACNT- 


CHRCNT* 1 




BINURO: 


0 
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013400 



CCLRALL 



iCLEAR ALL ofTE COUNT AND BUS ADDRESS REGISTERS 



013400 
013404 
013410 
013414 
013420 
013422 
013424 
2 013426 



012700 000020 
005077 000136 
005077 000134 
005277 000120 
005300 
001370 
000207 



CLRALL: 
It: 



nov 

CLR 
CLR 
INC 
DEC 
BNE 
RTS 

SSETALL 



•20. RO 

8DHBA 

80HBC 

SOHSCR 

RO 

II 

PC 



(SET UP TO CLEAR 16 
i CLEAR BUS ADDRESS 
i CLEAR BYTE COUNT 
lANVANCE LINE NUMBER 
i CONTINUE IF NOT DONE 

i RETURN TO CALLING ROUTINE 



tSET BYTE COUNT FOR ALL LINES TO 400 
(SET BUS ADDRESS FOR ALL LINES TO TBUF 
; CLEAR EXPECTED CHARACTER BUFFERS 
iSET LINE ACTIVE BITS FOR ALL LINES 



013426 


012700 


000020 




SETALL : 


NOV 


•20, RO 


013432 


005001 








CLR 


Rl 


013434 


012702 


000200 






nov 


•200. R2 


013440 


012703 


000001 






HOV 


•1.R3 


013444 


012777 


013646 


000074 


11: 


nov 


•TBUF.8DHi)A 


013452 


012777 


177400 


000070 




nov 


•-400.8DHBC 


013460 


012777 


031403 


000056 




nov 


•31403. SOHLPR 


013466 


105061 


014246 






aRB 


RBUF(Rl) 


013472 


110263 


014246 






novB 


R2.R8UF(R3) 


013476 


005277 


000036 






INC 


aOHSCfi 


013502 


005202 








INC 


R2 


013504 


062701 


000002 






ADO 


•2.R1 


013510 


062703 


000002 






ADD 


•2.R3 


013514 


005300 








DEC 


RO 


013516 


001352 








BNE 


It 


013520 


012767 


177777 


000114 




nov 


•-1.LINACT 


013526 


000207 








RTS 


PC 



:SET UP TO LOAD 16 

(BYTE COUNT AND BUS ADDRESS 

inEnORY LOCATIONS 

I SET UP TO GENERATE EXPECTED 

{RECEIVED CHARACTER BUFFER 

tUILL BE HIGH BYTE 

tOF EXPECTED RECEIVED CHARACTER 

(OFFSET FOR HIGH BYTE 

tLOAO BUS ADDRESS 

tLOAO BYTE COUNT 

(SET LINE SPEED TO 4800 BAUD 

t RECEIVED CHARACTER 
(LOAD HIGH BYTE 

{ADVANCE LINE NUMBER TO NEXT LINE 
s UPDATE POINTERS 



iCQNTINUE IF NOT DONE 

(SET ACTIVE FLAGS FOR ALL LINES 
(RETURN TO CALLING ROUTINE 
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1 013530 



. POINT r /OHSCR . OHNRC . OHLPR , DHBA , OHBC . OHBAR . OHBCR , OHSSR , OHSLR , OHRVEC , DHRL VL , OHT VEC , OHTLVL/ 
i INDIRECT POINTERS ; 3 



TLVL> 



013530 
013532 
013534 
013536 



013540 
013542 
013544 
013546 
013550 
013552 
013554 
013556 
013560 
013562 
013564 
013566 
013570 
2 013572 



177560 
177562 
177564 
177566 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



TKCSR 
TKOBR 
TPCSR 
TPOBR 
.IRP 

A: 

.ENOM 

DHSCR 

OHNRC 

DHLPR 

OHBA: 

OHBC: 

OHBAR 

DHBCR 

OHSSR 

OHSLR 

OHRVEC 

OHRLVL 

OHTVEC 

OHTLVL 

.VARIA 



177560 
177562 
177564 
177566 
A 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



<OHSCR .OHNRC .OHLPR .OHBA . DHBC .OHBAR .OHBCR .OHSSR .OHSLR .OHRVEC . OHRLVL .OHTVEC , OH 



t/ENOFLG . LINACT . AEACT/ 
iPROGRAH VARIABLES 



013572 
013574 
013576 
013600 
013602 
013604 
013606 
013610 
013612 
013614 
013616 
013620 
013622 
013624 
013626 
013630 
013632 
013634 
013636 



000000 


ERRFL6: 


0 


{ERROR FLAG 


000000 


PASCNT : 


0 


;PASS COUNT 


000000 


ERRCNT : 


0 


sERROR COUNT 


000000 


RETRN: 




0 


{SCOPE RETURN AOORESS FOR TEST LOOPING 


000000 


ESCAPE: 


0 


{ADDRESS FOR ERROR ESCAPE 


000000 


FREEZl: 


0 


{DATA LOOPING RETURN AOORESS 


000000 


ICOUNT: 


0 


{ITERATION COUNT FOR TEST IN PROGRESS 


000000 


LPCMT 




0 


(NUNBER OF ITERATIONS THIS TEST 


000000 


SAVRO 




0 


tRO SAVE AREA 


000000 


SAVRl 




0 


iRl SAVE AREA 


000000 


$AVR2 




0 


iR2 SAVE AREA 


000000 


SAVR3 




0 


lR3 SAVE ARE 


000000 


SAVR4 




0 


lR4 SAVE AREA 


000000 


SAVR5 




0 


iR5 SAVE AREA 


000000 


SAVSP 




0 


t STACK POIHTER SAVE AREA 


000000 


SAVPC 




0 


{CALLING ROUTINE SAVE AREA 


000000 


INIFL6: 


0 


{PROGRAM INITIALIZATION FLAG 


000000 


STFLG: 


0 


{PROGRAM START FLAG 


000000 


LAST: 




0 


tLAST ERROR PC 


.IRP 




A 


<ENDFL6. LINACT .AEACT> 




A: 

.ENOn 




0 




000000 


ENOFLG: 


0 




000000 


LINACT: 


0 




000000 


AEACT: 


0 
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000001 


TDAT"1 


4 013646 


000 


TBUF- BYTE 


5 


000377 


.REPT 377 






BYTE TD*T 


7 




.NLIST 


8 




tDAT-TDAT*l 


9 




.LIST 


10 




.ENOR 


013647 


001 


BYTE TDAT 




000002 


TDAT"T0AT*1 


013650 


002 


.BYTE TDAT 




000003 


TDAT«TDAT*1 


013651 


003 


.BYTE TDAT 




000004 


TDAT-TDAT*1 


013652 


004 


•BYTE TDAT 




000005 


TDAT -TDAT* 1 


013653 


005 


•BYTE TDAT 




000006 


TDAT -TDAT *1 


013654 


006 


.BYTE TDAT 




000007 


TDAT -TDAT *1 


013655 


007 


.BYTE TDAT 




000010 


TDAT -TDAT *1 


013656 


010 


.BYTE TDAT 




000011 


TDAT -TDAT *1 


013657 


Oil 


.BYTE TDAT 




000012 


TDAT-TDAT*1 


013660 


012 


.BYTE TDAT 




000013 


TDAT -TDAT ♦I 


013661 


013 


.BYTE TOAT 




000014 


TDAT -TDAT ♦I 


013662 


014 


.BYTE TOAT 




000015 


TDAT -TDAT ♦! 


013663 


015 


.BYTE TOAT 




000016 


TOAT-TOAT^l 


013664 


016 


.BYTE TOAT 




000017 


T0AT-T0AT«1 


013665 


017 


.BYTE TOAT 




000020 


T0AT-TDAT«1 


013666 


020 


•BYTE TOAT 




000021 


T0AT-T0AT«1 


013667 


021 


•BYTE TOAT 




000022 


TO AT -TDAT 41 


013670 


022 


•BYTE TOAT 




000023 


TO AT -TOAT 41 


013671 


023 


.BYTE TOAT 




000024 


T0AT-TDAT*1 


013672 


024 


.BYTE TOAT 




000025 


T0AT-TDAT«1 


013673 


025 


•BYTE TOAT 




000026 


T0AT-T0AT«1 


013674 


026 


.BYTE TDAT 




000027 


TOAT-TOAT^l 


013675 


027 


.BYTE TDAT 




000030 


TDAT-TDAT«1 


013676 


030 


.BYTE TDAT 




000031 


T0AT-T0AT»1 


013677 


031 


.BYTE TOAT 
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000032 


T0AT-T0AT»1 


013700 


032 


.BYTE TOAT 




000033 


TDAT-TDAT»1 


013701 


033 


.BYTE TDAT 




000034 


TDAT-TDAT»1 


013702 


034 


.BYTE TDAT 




000035 


TDAT-TDAT*1 


013703 


035 


.BYTE TOAT 




000036 


TDAT-TDAT»1 


013704 


036 


.BYTE TDAT 




000037 


TDAT -TDAT ♦I 


013705 


037 


.BYTE TDAT 




000040 


TDAT-TDAT*1 


013706 


040 


.BYTE TDAT 




000041 


T0AT-TDAT*1 


013707 


041 


.BYTE TDAT 




000042 


TDAT-TDAT*1 


013710 


042 


.BYTE TDAT 




000043 


TDAT-TDAT»1 


013711 


043 


.BYTE TDAT 




000044 


TDAT-TDAT*1 


013712 


044 


.BYTE TDAT 




000045 


TDAT -TDAT ♦I 


013713 


045 


.BYTE TDAT 




000046 


TDAT-TDAT*1 


013714 


046 


.BYTE TDAT 




000047 


TDAT-TDAT^l 


013715 


047 


.BYTE TDAT 




OOOOSO 


TDAT -TDAT ♦I 


013716 


050 


.BYTE TDAT 




000051 


TOAT -TDAT ♦I 


013717 


051 


.BYTE TDAT 




000052 


TDAT -TDAT ♦I 


013720 


052 


.BYTE TDAT 




000053 


TDAT-TDAT»1 


013721 


053 


.BYTE TDAT 




000054 


TDAT-TD*T*1 


015722 


054 


.BYTE TDAT 




000055 


TDAT -TDAT* 1 


013723 


055 


.BYTE TOAT 




000056 


TDAT-TDAT^l 


013724 


056 


.BYTE TDAT 




000057 


TDAT-TDAT»1 


013725 


057 


.BYTE TDAT 




000060 


TDAT -TDAT ♦I 


013726 


060 


.BYTE TDAT 




000061 


TDAT -TDAT* 1 


013727 


061 


.BYTE TDAT 




000062 


TDAT -TDAT ♦I 


013730 


062 


.BYTE TDAT 




000063 


TDAT -TOAT ♦I 


013731 


063 


.BYTE TDAT 




000064 


TDAT-TDAT^l 


013732 


064 


.BYTE TDAT 




000065 


TDAT -TDAT ♦I 


013733 


065 


.BYTE TDAT 




000066 


TDAT-TOAT^l 
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013734 


066 


.BYTE TOAT 




000067 


T0*T-T0*T»1 


013735 


067 


•BYTE TOAT 




000070 


T0AT-T0AT*1 


013736 


070 


.BYTE TOAT 




000071 


TDAT-TDAT*1 


013737 


071 


.BYTE TO AT 




000072 


T0AT-TDAT*1 


013740 


072 


.BYTE TOAT 




000073 


T0AT-T0AT»1 


013741 


073 


•BYTE TOAT 




000074 


T0AT-T0AT*1 


013742 


074 


.BYTE TOAT 




000075 


TOAT -TOAT ♦I 


013743 


075 


.BYTE TOAT 




000076 


TOAT -TOAT tl 


013744 


076 


.BYTE TDAT 




000077 


TDAT-TDAT»1 


013745 


077 


.BYTE TDAT 




000100 


TDAT»TDAT*1 


013746 


100 


.BYTE TDAT 




000101 


TDAT-T0AT»1 


013747 


101 


.BYTE TDAT 




000102 


TDAT-T0AT»1 


013750 


102 


.BYTE TDAT 




000103 


TDAT"TDAT*1 


013751 


103 


.BYTE TOAT 




000104 


TDAT-T0AT»1 


013752 


104 


.BYTE TOAT 




000105 


TDAT»TDAT»1 


013753 


105 


.BYTE TOAT 




000106 


TOAT -TOAT ♦I 


013754 


106 


.BYTE TOAT 




000107 


TOAT -TOAT ^1 


01S755 


107 


.BYTE TDAT 




000110 


T0AT-T0AT»1 


013756 


110 


.BYTE TOAT 




000111 


T0AT"TDAT»1 


013757 


111 


.BYTE TOAT 




000112 


TOAT -TOAT ♦I 


013760 


112 


.BYTE TDAT 




000113 


TOAT-TDAT*! 


013761 


113 


.BYTE TOAT 




000114 


T0AT-T0AT»1 


013762 


114 


.BYTE TDAT 




000115 


TDAT-TDAT^l 


013763 


115 


.BYTE TDAT 




000116 


TOAT -TOAT «1 


013764 


116 


.BYTE TOAT 




000117 


TDAT-TDAT*1 


013765 


117 


.BYTE TDAT 




000120 


T0AT-TDAT»1 


013766 


120 


.BYTE TOAT 




000121 


TDAT«TDAT«1 


015767 


121 


.BYTE TDAT 




000122 


TDAT-TDAT*1 


013770 


122 


.BYTE TOAT 
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000123 


T0AT-TDAT»1 


013771 


123 


.BYTE TDAT 




000124 


TDAT-TDAT*1 


013772 


124 


.BYTE TDAT 




000125 


T0AT-TDAT*1 


013773 


125 


.BYTE TO AT 




000126 


T0AT-TDAT*1 


013774 


126 


.BYTE TDAT 




000127 


TDAT-TDAf*l 


013775 


127 


.BYTE TDAT 




000130 


TDAT-TDAT»1 


013776 


130 


.BYTE TDAT 




000131 


TDAT-TDAT«1 


013777 


131 


.BYTE TDAT 




000132 


TDAT -TDAT* 1 


014000 


132 


.BYTE TDAT 




000133 


T0AT"T0AT*1 


014001 


133 


.BYTE TDAT 




000134 


T0AT"T0AT»1 


014002 


134 


.BYTE TDAT 




000135 


TDAT "TDAT ♦I 


014003 


135 


.BYTE TDAT 




000136 


TDAT"T0AT*1 


014004 


136 


.BYTE TDAT 




000137 


TDAT "TDAT ♦! 


014005 


137 


.BYTE TDAT 




000140 


TDAT "TDAT +1 


014006 


140 


.BYTE TDAT 




000141 


T0AT"TDAT*1 


014007 


141 


.BYTE TDAT 




000142 


TDAT-TDAT*1 


014010 


142 


.BYTE TDAT 




000143 


TDAT-TDAT»1 


014011 


143 


.BYTE TDAT 




000144 


TDAT "TDAT ♦! 


014012 


144 


.BYTE TDAT 




000145 


TDAT"TDAT»1 


014013 


145 


•BYTE TDAT 




000146 


TDAT "TDAT ♦I 


014014 


146 


.BYTE TDAT 




000147 


TDAT "TDAT ♦I 


014015 


147 


.BYTE TDAT 




000150 


TOAT"TOAT»l 


014016 


150 


.BYTE TOAT 




000151 


TDAT"TDAT»1 


014017 


151 


•BYTE TOAT 




000152 


TOAT»TOAT»l 


014020 


152 


.BYTE TOAT 




000153 


TDAT"TOAT»l 


014021 


153 


.BYTE TOAT 




000154 


TDAT"TDAT*l 


014022 


154 


.BYTE TDAT 




000155 


TDAT "TDAT* I 


014023 


155 


.BYTE TDAT 




000156 


TDAT-TDAT*! 


014024 


156 


.BYTE TDAT 




000157 


TDAT"T0AT*1 
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014025 


157 


.BYTE TOAT 




000160 


TOAT-TOATtl 


014026 


160 


.BYTE TOAT 




000161 


TDAT-T0AT»1 


014027 


161 


.BYTE TOAT 




000162 


TDAT-TDAT»1 


014030 


162 


.BYTE TOAT 




000163 


T0AT"T0AT*1 


014031 


163 


.BYTE TOAT 




000164 


T0AT-T0AT»1 


014032 


164 


.BYTE TOAT 




000165 


TOAT -TOAT ♦I 


014033 


165 


.BYTE TOAT 




000166 


TOAT -TOAT ♦I 


014034 


166 


.BYTE TOAT 




000167 


TDAT-TDAT«1 


014035 


167 


.BYTE TOAT 




000170 


TDAT>TDAT*1 


014036 


170 


.BYTE TOAT 




000171 


TOAT "TOAT* 1 


014037 


171 


.BYTE TOAT 




000172 


TOAT -TOAT a 


014040 


172 


.BYTE TOAT 




000173 


TDAT»T0AT*1 


014041 


173 


.BYTE TOAT 




000174 


TDAT-T0AT»1 


014042 


174 


.BHE TOAT 




000175 


TDAT-TOAT^l 


014043 


175 


.BYTE TOAT 




000176 


TOAT«TMT*i 


014044 


176 


.BYTE TOAT 




000177 


TDAT-TDAT*! 


014045 


177 


.BYTE TOAT 




000200 


TOAT-TOAT*! 


014046 


200 


.BYTE TOAT 




0OC201 


TDAT-T0AT»1 


014047 


201 


.BYTE TOAT 




000202 


T0AT-TMT*1 


014050 


202 


.BYTE TOAT 




000203 


TOAT-TMTa 


014051 


203 


.BYTE TOAT 




000204 


TDAT-TOAT*! 


014052 


204 


.BYTE TOAT 




000205 


TOAT-TOAT*! 


014053 


205 


.BYTE TOAT 




000206 


T0AT-TDAT*1 


014054 


206 


.BYTE TOAT 




000207 


T0AT-TDAT*1 


014055 


207 


.BYTE TOAT 




000210 


TDAT-TOAT^l 


014056 


210 


.BYTE TOAT 




000211 


TOAT -TOAT ♦ I 


014057 


211 


.BYTE TOAT 




000212 


TOAT -TOAT tl 


014060 


212 


.BYTE TOAT 




000213 


TOAT -TOAT tl 


014061 


213 


.BYTE TOAT 
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000214 


TDAT-TDAT»1 


014062 


214 


.BYTE TDAT 




000215 


T0AT-T0AT»1 


014063 


215 


.BYTE TDAT 




000216 


TDAT -TDAT ♦I 


014064 


216 


.BYTE TDAT 




000217 


TDAT-TDAT*! 


014065 


217 


.BYTE TDAT 




000220 


TDAT "TDAT ♦I 


014066 


220 


.BYTE TDAT 




000221 


TDAT "TDAT 41 


014067 


221 


.BYTE TDAT 




000222 


TDAT-TDAT»1 


014070 


222 


.BYTE TDAT 




000223 


TDAT"T0AT»1 


014071 


223 


.BYTE TDAT 




000224 


TDAT -TDAT U 


014072 


224 


.BYTE TOAT 




000225 


TDAT-TOAT*! 


014073 


225 


.BYTE TOAT 




000226 


TDAT-T0AT«1 


014074 


226 


.BYTE TOAT 




000227 


T0AT"T0AT*1 


014075 


227 


.BYTE TDAT 




000230 


TOAT -TOAT ♦I 


014076 


230 


.BYTE TOAT 




000231 


TDAT -TOAT 'l 


014077 


231 


.BYTE TOAT 




000232 


T0AT-TDAT*1 


014100 


232 


.BYTE TOAT 




000233 


T0AT-T0AT«1 


014101 


233 


.BYTE TOAT 




000234 


TDAT -TOAT* 1 


014102 


234 


•BYTE TOAT 




000235 


TOAT-TDAT*! 


014103 


235 


.BYTE TOAT 




000236 


TOAT-TMT*! 


014104 


236 


.BYTE TDAT 




000237 


TDAT-T0AT»1 


014105 


237 


.BYTE TDHT 




000240 


TDAT-TDAT«1 


014106 


240 


•BYTE TDAT 




000241 


TDAT-TOAT*! 


014107 


241 


.BYTE TOAT 




000242 


TDAT -TOAT •I 


014110 


242 


.BYTE TDAT 




000243 


TOAT-TOAT*! 


014111 


243 


.BYTE TDAT 




000244 


TDAT-TOAT*! 


014112 


244 


■BYTE TDAT 




000245 


TDAT-TOAT *1 


014113 


245 


.BYTE TDAT 




000246 


TOAT-TOAT*! 


014114 


246 


.BYTE TDAT 




000247 


TDAT-TOAT*! 


014115 


247 


.BYTE TDAT 




000250 


TDAT-TOAT* 1 
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014116 


2S0 


.BYTE TOAT 




000251 


TOAT-TOAT.l 


014117 


251 


.BYTE TOAT 




000252 


TOAT -TOAT *1 


014120 


252 


.BYTE TOAT 




000253 


TOAT-TOAT.l 


014121 


253 


.BYTE TOAT 




000254 


TOAT -TOAT *1 


014122 


254 


.BYTE TOAT 




000255 


TOAT -TOAT *1 


014123 


255 


.BYTE TOAT 




000256 


TOAT-TO*.T.l 


014124 


256 


.BYTE TOAT 




000257 


TOAT-TOAT.l 


014125 


257 


.BYTE TOAT 




000260 


TOAT -TOAT *1 


014126 


260 


.BYTE TOAT 




000261 


T0AT-T0AT»1 


014127 


261 


.BYTE TOAT 




000262 


T0AT-T0AT*1 


014130 


262 


.BYTE TOAT 




000263 


TOAT -TOAT tl 


014131 


263 


.BYTE TOAT 




000264 


TOAT -TOAT tl 


014132 


264 


.BYTE TOAT 




000265 


TOAT -TOAT. 1 


014133 


265 


.BYTE TOAT 




000266 


TOAT-TOAT.l 


014134 


266 


.BYTE TOAT 




000267 


TOAT -TOAT .1 


01413S 


267 


.BYTE TOAT 




000270 


TOAT-TOAT.l 


014136 


270 


.BYTE TOAT 




000271 


TOAT-TOAT.l 


014137 


271 


.BYTE TOAT 




000272 


TOAT -TOAT *1 


014140 


272 


.BYTE TOAT 




000273 


TOAT-TOAT.l 


014141 


273 


.BYTE TOAT 




000274 


TOAT-TOAT.l 


014142 


274 


.BYTE TOAT 




000275 


TOAT-TOAT.l 


014143 


275 


.BYTE TOAT 




000276 


TOAT-TOAT.l 


014144 


276 


.BYTE TOAT 




00C277 


TOAT-TOAT.l 


01414S 


277 


.BYTE TOAT 




000300 


TOAT -TOAT *1 


014146 


300 


.BYTE TOAT 




000301 


TOAT -TOAT •! 


014147 


301 


.BYTE TOAT 




Cm0302 


TOAT-TOAT.l 


014150 


302 


.BYTE TOAT 




000303 


TOAT-TOAT.l 


014151 


303 


.BYTE TOAT 




000304 


TOAT-TOAT.l 


014152 


304 


.BYTE TOAT 
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AAA VAC 


T0AT"T0AT»1 


014153 


VAC 

305 


.BtTE toat 




000306 


TDAT"T0AT*1 


0X4154 


306 


.BtTE toat 




AAAV A^ 

000307 


T0AT"T0AT*1 


014155 


V A^ 

307 


•BYTE TOAT 




AAAV • A 

000310 


TOAT "TOAT ♦I 


014156 


V « A 

310 


.BYTE TOAT 




AAAV t t 

000911 


TAAT—TAAT t 

TDMT»TDAT*1 


01415^ 


V t t 

311 


.BYTE TDAT 




AAAV t ^ 

000312 


TiJAT"TOAT»l 


At A • £A 

014160 


312 


.BYTE TDAT 




AAAV t V 

000913 


TDAT"TDAT*l 


At ^ t X t 

014161 


313 


.BYTE TDAT 




AAAV t A 

000314 


TDAT"TDA| ♦I 


At ^ t X 

014162 


V t A 

314 


.BYTE TDAT 




AAAV t K 

000315 


TDAT "TDAT ♦I 


014163 


315 


•BYTE TDAT 




000316 


TDAT "TDAT #1 


014164 


316 


.BYTE TDAT 




COOS 17 


T0AT"TDAT»1 


014165 


Vt 7 

317 


.BYTE TDAT 




AAAV9A 

000320 


TOAT •TOAT ♦I 


At M 4 £A 

014166 


V9A 

320 


DVTC TAAT 

.BYTE TDAT 




AAAV^t 

000321 


TDAT "TOAT* I 


At A9K.^ 

014167 


V9t 

321 


.BTTE TDAT 




AAA V 99 

000322 


I0AT"T0AT»1 


At M t ^A 

014170 


322 


.BYTE TDAT 




AAAV9V 

000323 


TDAT"T0AT*1 


At^t 7t 

0141 rl 


323 


DVTC THAT 




AAAV9A 

000324 


TOUT "TOAT* I 


At A t 79 

0141 72 


324 


.BTIE TDAT 




AAAV9C 

000325 


TA AT bTIVAT ... t 

TDAT"TuAT*l 


At A t 7V 

0141 73 


325 


.BTIE (DAT 




AAAV9C 

000326 


T0AT"T0AT«l 


At At 7A 
0141 74 


326 


.BTTE TDAT 




000327 


TAAT mTAAT . t 

TDAT"TDAT*l 


At At 

0141 7^ 


32 ' 


OVTf TAAT 

.BTTE TDAT 




AAAYXA 

000390 


TAATaTAAT . t 

TDHT*TDAT»1 


At A t ^A 

0141 f6 


WA 

330 


OVTf TAAT 

.BYTE TDAT 




AAAWt 

000331 


TAAT bTAAT . t 

TDAT"TDAT*l 


At A t 7T 

014177 


nt 
331 


DVTf TAAT 

•BYTE TDAT 




AAA1V9 

000332 


TAAT bTAAT . t 

TDAT"IDAT*1 


At A9AA 

014200 


332 


OVTf TAAT 

.BYTE TDAT 




AAA'S 11 

000333 


TAAT bTAAT . t 

TOAT "1 DAT* I 


At A9At 

014201 


111 

333 


DVTf TAAT 

.BYTE TDAT 




AAAIXA 
0W0334 


TAATaTAAT . t 

TDAT"TDATtl 


At A9A9 

014202 


334 


DVTC THAT 

.BYTE TDAT 




000333 


TAATaTAAT t 

TOAT "TDAT* I 


At AOAV 

014203 


lie 

335 


OVTf TAAT 

•BYTE TOAT 




AAAII^ 

00O336 


TAATaTAAT t 

TDAT"TDAT*1 


At A^iXA 

014204 


11^ 
336 


DVTf TAAT 

.BYTE TDAT 




AAAH7 

000337 


TAATbTAAT - t 

TDAT"TDAT*1 


At A^t\K 
014203 


337 


.BYTE TDAI 






TnATaTRAT^ 1 
1 UN i ' i UN 1 * X 


014206 


340 


.BYTE TDAT 




000341 


TOAT -TDAT* 1 
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014207 


341 


.BYTE TOAT 




000342 


T0AT-TDAT»1 


014210 


342 


.BYTE TOAT 




000343 


TOAT-TDAT*! 


014211 


343 


.BYTE TOAT 




000344 


T0AT-T0AT*1 


014212 


344 


.BYTE TOAT 




000345 


T0AT-T0AT*1 


014213 


345 


.BYTE TOAT 




000346 


TOAT -TOAT* 1 


014214 


346 


.BYTE TOAT 




000347 


TOAT-TOAT.l 


014215 


347 


.BYTE TOAT 




000350 


T0AT-T0AT»1 


014216 


350 


.BYTE TOAT 




000351 


TOAT -TOAT U 


014217 


351 


.BYTE TOAT 




000352 


TOAT-TOAT*! 


014220 


352 


.BYTE TOAT 




000353 


T0AT-T0AT»1 


014221 


iS3 


.BYTE TOAT 




000354 


TOAT -TOAT* 1 


014222 


354 


.BYTE TOAT 




000355 


T0AT-T0AT»1 


014223 


355 


.BYTE TOAT 




009356 


TOAT -TOAT* I 


014224 


356 


.BYTE TOAT 




000357 


TO AT -TOAT a 


014225 


357 


.BYTE TOAT 




000360 


TOAT -TOAT ♦! 


014226 


360 


.BYTE TOAT 




000361 


T0AT-T0AT*1 


014227 


361 


.BYTE TOAT 




000362 


TOAT -TOAT 4 1 


014230 


362 


.BYTE TOAT 




000363 


TOAT "TOAT ♦! 


014231 


363 


.BYTE TOAT 




000364 


TOAT -TOAT* I 


014232 


364 


.BYTE TOAT 




000365 


TOAT -TOAT .1 


014233 


365 


.BYTE TOAT 




000366 


TOAT -TOAT ♦! 


014234 


366 


.BYTE TOAT 




000367 


T0AT-T0AT*1 


014235 


367 


•BYTE TOAT 




000370 


TO AT -TOAT. 1 


014236 


370 


•BYTE TOAT 




000371 


T0AT»TDAT*1 


014237 


371 


.BYTE TOAT 




000372 


T0AT-TDAT*1 


014240 


372 


.BYTE TOAT 




000373 


T0AT-T0AT»1 


014241 


373 


.BYTE TOAT 




000374 


T0AT-T0AT»1 


014242 


374 


•BYTE TOAT 




000375 


T0AT-T0AT*1 


014243 


375 


.BYTE TOAT 



000S76 

014244 376 
000377 

014245 377 
000400 

11 

12 014246 000000 

13 014310 



T0AT»TDAT»1 
.BYTE TDAT 
TOAT-TDAT*! 
.BYTE TDAT 
T0AT-TDAT»1 
.EVEN 
RBUF: 0 
.•.♦40 



C20HH-C0 nACRO V04.00 27- 

1 
2 
3 

5 000020 

6 000000 

7 000000 
9 000020 



0 

1 

.2 
3 
4 
5 
6 
7 

100377 

014310 

014310 100377 
000001 
100777 

014312 

"14312 100777 
000002 
101377 

014314 

014314 101377 
000003 
1017^7 

014316 

014316 101777 
000004 
102377 

014320 

014320 102377 
000005 
102777 

014322 

014322 102777 
000006 
103377 

014324 

014324 103377 
000007 
103777 

014326 

014326 103777 
000010 
104377 

014330 

014330 104377 
000011 
104777 

014332 

014332 104777 
000012 
105377 

014334 
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.MACRO WORDS UONAME ,K .DATA 
'UDNAHE'K': DATA 
.ENOH WORDS 
K-KX 

0ATA>0ATAX 
KX-0 

.REPT 20 
.NLIST 

DATAX-KX*400»100377 
.LIST 

WORDS t/TWRO/.\KX.\OATAX 

.NLIST 

KX-KXa 

.LIST 

.ENOR 

OATAX«KX*400* 100377 

WORDS t/TWRD/.\KX.\DATAX 

TWRDO: 100377 

KX-KX*1 

DATAX-KX*400»100377 

WORDS t/TWR0/.\KX.\DATAX 

TWRDl: 100777 

KX-KX*1 

DATAX-KX*400»100377 

WORDS t/TURD/,\KX,\DATAX 

TWRD2: 101377 

KX-KX»1 

OATAX-KX*400*100377 

WORDS t/TWRD/,\KX.\DATAX 

TWRD3: 101777 

KX-KX*1 

0ATAX-KX*4OO*100377 

WORDS t/TWRD/.\KX.\DATAX 

TURD4: 102377 

KX-KX*1 

OATAX>KX*400*100S77 

UOROS t/TURO/.\KX.\OAm 

TUROS: 102777 

KX-KX*1 

DATAX-KX*400*100S77 

UOROS t/TURO/.M<X.\0»TiW 

TURD6: 103377 

KX-KX«1 

OATAX-KXMOO »100377 

UOROS t/TURO/.\KX.\OATAX 

TUR07: 103777 

KX'KX'l 

DATAX-KX*400*100377 

UOROS t/TURO/AKX.\OATAX 

TURDIO: 104377 

KX-KX*! 

DATAX-KX*400«100S77 

UOROS t/TUM)/.\KX.\OATAX 

TMROll: 104777 

KX-KX^l 

DATAX>KX*400* 100377 

UOROS t/TURO/.\KX.\OATAX 
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0143S4 105377 
000013 
105777 

014336 

014336 105777 
000014 
106377 

014340 

014340 106377 
000015 
106777 

014342 

01434? 106777 
000016 
107377 

014344 

014344 107377 
000017 
1C7777 

014346 

014346 107777 
000020 

19 107777 

20 000020 

21 000000 

22 000000 
24 000020 
25 

26 
27 
28 
29 

0143S0 

014350 000000 
000001 

014352 

014352 000000 
000002 

014354 

014354 000000 
000003 

014356 

014356 000000 
000004 

014360 

014360 000000 
000005 

014362 

014362 000000 
000006 

014364 

014364 000000 
000007 

014366 

014366 000000 
000010 

014370 



TURD12: 105377 
KX-KX«1 

0ATAX-KX*4OO*10O377 

WORDS t/TURD/,\KX.\OATAX 

TURD13: 105777 

KX-KX*1 

DArAX-KX*400«100377 

UORDS t/TURD/.NKX.VDATAX 

TUR014: 106377 

KX-KX«J 

DATAX-KX*400*100377 

UORDS t / TURD/ . \KX . \DAT AX 

TURD 15: 106777 

KX-KX»l 

DATAX-KX*400*100377 

UORDS t/TUR0/.\KX.\DATAX 

1URD16: 107377 

KX-KX«1 

DATAX-KX*400» 100377 

UORDS «/TURO/.\KX.\DATAX 

TURD17: 107777 

KX-KX«1 

DATA-OATAX 

K-KX 

DATAX-0 

KX-0 

.REPT 20 

UORDS t/RCNT/ . \KX . \DATAX 

.NLIST 

KX-KX»1 

.LIST 

.ENDR 

UORDS t/RCNT/. \KX.\0ATAX 

RCNTO: 0 

KX-KX*1 

UOROS t/RCNT/, \KX.\OATAX 

RCNTl: 0 

KX«KX*1 

UOROS t/RCNT/. VKX.\OAT AX 

RCNT2: 0 

KX-KX*1 

UOROS t/RCNT / . \KX . \OATAX 

RCNT3; 0 

KX«KX*1 

UOROS t/RCNT/. \KX.\OAT AX 

RCNT4: 0 

KX-KX»1 

UORDS t/RCNT/. \KX.\OATAX 

RCNT5: 0 

KX-KX*l 

UOROS t/RCNT/. \KX. \DATAX 

RCNT6: 0 

KX«KX»1 

UORDS t/RCNT/ , \KX , \DATAX 

RCNT7: 0 

KX-KX*1 

UORDS t/RCNT/ , \KX . \DATAX 



014370 000000 
000011 

014372 

014372 000000 
000012 

014374 

014374 000000 
000013 

014376 

014376 000000 
00001* 

014400 

014400 000000 
000015 

014402 

014402 000000 
000016 

014404 

014404 000000 
000017 

014406 

014406 000000 
000020 

31 000000 

32 000020 

33 OOOOCO 

34 000000 
36 000020 
37 

38 
39 
40 
41 

014410 

014410 000000 
000001 

014412 

014412 000000 
000002 

014414 

014414 000000 
000003 

014416 

014416 000000 
000004 

014420 

014420 000000 
000005 

014422 

014422 000000 
000006 

014424 

014424 000000 
000007 

014426 

014426 000000 
000010 



RCNTIO: 0 
KX-KX*1 

UORDS t/RCNT/.\KX.\DATAX 

RCNTll: 0 

KX-KX«1 

WORDS t/RCNT/.\KX,\OATAX 

RCNT12: 0 

KX-KXa 

UORDS t/RCNT/.\KX,\OATAX 

RCNT13: 0 

KX«KX*1 

UORDS t/RCNT/.\KX,\DATAX 

RCNT14: 0 

KX-KX«1 

UORDS t/RCNT/ . \KX , \DATAX 

RCNT15: 0 

KX-KX*1 

UORDS t/RCNT/ . \KX . \DAT AX 

RCNT16: 0 

KX-KX*1 

UORDS t/RCNT/ . \KX , \0ATAX 

RCNT17: 0 

KX-KX*1 

DATA-DAT AX 

K-KX 

DATAX-0 

KX-0 

.REPT 20 

UORDS t/RDCT/.\KX.\DATAX 

.NLIST 

KX-KXa 

.LIST 

.ENOR 

UORDS t/RDCT/.\KX.\OATAX 

RDCTO: 0 

KX-KX«1 

UORDS t/RDCT/.\KX.M)ATAX 

ROCTl: 0 

KX«KXt1 

VIOmS t/ROCT/ . \KX. \DATAX 

R0CT2: 0 

KX-KX*1 

UOfOS t/ROCT/. \KX.\DATAX 

R0CT3: 0 

KX-KX*1 

UORDS t/RDCT/.\KX,\DATAX 

R0CT4: 0 

KX-KX»1 

UORDS t/ROCT/, \KX.VOATAX 

ROCTS: 0 

KX-KX»1 

UOROS t/ROCT/. SKX.VOATAX 

R0CT6: 0 

KX-KX»1 

UOROS t/ROCT/ . \KX . \OATAX 

R0CT7: 0 

KX*KX*i 





At AA VA 

014430 






014440 


000011 




A1 AA 

014442 






At 

0144 3Z 


000000 
000012 




Af AA XA 
014444 






At AAXS 
014444 


AAAAAA 
000000 

000013 




At AAXC 

0144 40 






At A ATA 

01 44 So 


000000 
000014 




Al AAAA 
014440 






Af AAAA 
014440 


AAAAAA 
OOOOOO 

000015 




At AAA9 

014442 






At AAA9 

V14442 


000016 




At AAAA 
014444 






Al AAMA 
014444 


AAAAAA 

000017 




V14440 






At AAA& 
014440 


AAAAAA 
AAAA9A 


*C 


At AACA 
014430 


AAAA At 
UOOVVl 




At AAC9 
01443C 


AAAAA9 


AA 


V14434 




*3 


At AACA 
01443O 


AAAA t A 




At AAAA 


A/'iAA9A 


47 
^ f 


U14^0C 


UOUv4U 




At AAtiA 
014#0^ 


AAAt AA 


AO 


At AAAA 


/VXAOAA 




At AA 7 A 


AAAAAA 


r t 


At AA TO 
0144 l£ 


AAt AAA 


3c 


A t A A *7A 
0144 f4 


AAAAAA 


34 


At AA7A 
U144 /O 


AAAAAA 

yy4uyw 


3^ 


At ACAA 
014300 


At AAAA 


CC 

33 




AOAAAA 


56 


014504 


040000 


57 


014S06 


100000 



UOROS t/ROCT/.\KX.\OATAX 
RDCTIO: 0 

WORDS t/ROCT/.\KX.\DATAX 

RDCTll: 0 

KX-KXa 

UOROS t/RDCT/,\KX,\OATAX 

R0CT12: 0 

KX-KX«1 

UOROS t/ROCT/,\KX,\DATAX 

RDCT13: 0 

KX-KXtl 

UOROS t/RDCT/,\KX.\OATAX 

R0CT14: 0 

KX-KX*1 

UOROS t/ROCT/.\KX,\OATAX 

R0CT15: 0 

KX-KX>1 

WORDS t/RDCT/,\KX,\DATAX 

R0CT16: 0 

KX-KX*1 

WORDS t/RDCT/.\KX.\DATAX 
R0CT17: 0 
KX-KX*1 
LINBXT: 1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 
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1 014510 



.PFAIL 



I ENTER HERE ON POUER FAILURE 



014510 


010046 






PFAIL : 


MOV 


RO. -(SP) 


014512 


010146 








MOV 


Rl.-(SP) 


014514 


010246 








MOV 


R2.-(SP) 


014516 


010346 








MOV 


R3.-(SP) 


014520 


010446 








MOV 


R4.-(SP) 


014522 


010546 








MOV 


R5,-(SP) 


014524 


016746 


163274 






MOV 


24.-(SP) 


014530 


010667 


177072 






MOV 


SP.SAVSP 


014534 


012767 


014546 


163262 




MOV 


•RESTART .24 


014542 


000000 








HALT 




014544 


000777 








BR 














i PROCESSOR WILL TRAP 


014546 


016706 


177054 




RESTAR : 


nuw 


CAUCD CD 


014552 


012605 








nuv 


fCP^^ DC 

i or J* t n J 


014554 


012604 








Mnu 
nuv 


fCO^« DA 


0145S6 


012603 








nuv 


\ Or J * tnO 


014560 


012602 








MOV 


fSPl* R2 


014562 


012601 








MOV 


(SP)*.R1 


014564 


012600 








MOV 


(SP)».RO 


014566 


012767 


014510 


163230 




MOV 


•PFAIL. 24 


014574 


012767 


000340 


163174 




MOV 


•340, PS 


014602 


012706 


015644 






MOV 


•STACK.SP 


014606 


005067 


000360 






CLR 


TEMP 


014612 


005267 


000354 






INC 


TEMP 


014616 


001375 








BNE 


.-4 


014620 


104401 








TYPE 




014622 


014774 








MCRLF 




014624 


104402 








OCTASC 




014626 


014650 








PFTAB 




014630 


104401 








TYPE 




014632 


014777 








MPFAIL 




014634 


005067 


176732 






CLR 


ERRFLG 


014640 


005067 


176772 






CLR 


LAST 


014644 


000177 


176730 






JMP 


atETRN 


014650 


000001 






PFTAB: 


1 




014652 


000006 


000002 






6.2 




014656 


013600 








RETRN 





:SAVE R0-R5 ON PROCESSOR STACK 



tSAVE STACK POINTER 

iSET UP FOR POUER UP TRAP 

(HALT ON POUER DOUN NORMAL 



POUER IS RESTORED 

iRESTORE STACK POINTER 
s RESTORE R0-R5 



(SET UP FOR POUER FAILURE 



! 5 
! 5 
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014660 








014660 


015 


012 


012 


014665 


104 


110 


061 


014666 


061 


040 


101 


014671 


125 


124 


117 


014674 


040 


105 


103 


014677 


110 


117 


040 


014702 


124 


105 


123 


014705 


124 


040 


015 


014710 


012 


000 




014712 


015 


012 


126 


014715 


105 


103 


124 


014720 


117 


122 


040 


01472S 


101 


104 


104 


014726 


122 


105 


123 


014731 


123 


055 


000 


014734 


015 


012 


103 


014737 


117 


116 


124 


014742 


122 


117 


114 


014745 


040 


122 


105 


014750 


107 


111 


123 


014753 


124 


105 


122 


014756 


040 


101 


104 


014761 


104 


122 


105 


014764 


123 


123 


055 


014767 


000 






014770 


040 


040 


077 


014773 


000 






014774 


015 


012 


000 


014777 


040 


040 


120 


015002 


117 


127 


105 


015005 


122 


040 


106 


015010 


101 


111 


114 


015013 


125 


122 


105 


015016 


054 


040 


120 


015021 


122 


117 


107 


015024 


122 


101 


115 


015027 


040 


122 


105 


015032 


123 


124 


101 


015035 


122 


124 


040 


015040 


101 


124 


040 


015043 


124 


105 


123 


015046 


124 


040 


111 


015051 


116 


040 


120 


015054 


122 


117 


107 


015057 


122 


105 


123 


015062 


123 


000 




015064 


015 


012 


103 


015067 


132 


104 


110 


015072 


110 


055 


103 


015075 


060 


000 




015077 


015 


012 


120 


015102 


101 


123 


123 


015105 


040 


103 


117 


015110 


125 


116 


124 


015113 


040 


075 


040 



.MSG t/OHll AUTO ECHO TEST/, t/CZOHH-CO/ 

miTLE: .ASCIZ <15><12><12>/DH11 AUTO ECHO TEST /<15><12> 



MVECTO: .ASCIZ <15><12>/VECT0R ADDRESS-/ 



HREGAO: .ASCIZ <15><12>/C0NTR0L REGISTER ADDRESS-/ 



MOM: .ASCIZ / ?/ 
MCRLF: .ASCIZ <15><12> 

NPFAIL: .ASCIZ / POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 



MEPASS: .ASCIZ <15><12>/CZ0HH-C0/ 



PASTXT: .ASCIZ <15><12>/PASS COUNT - / 



I 5 
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SEQ 89 



015116 


000 










015117 


015 


012 


122 


m-. .Asciz 


<15><12>/R/ 


015122 


000 










015123 


015 


012 


124 


MTSTPC: .ASCIZ 


<15><12>/TEST 


015126 


105 


123 


124 






015131 


040 


120 


103 






01S134 


055 


000 









3 015136 



015136 
015140 
015142 
015144 
015146 
015150 
015152 
015154 
015156 
4 015160 



012232 
012706 
013226 
012740 
vl3032 
013042 
012614 
012654 
012332 



015160 000000 
015172 

015172 000000 
015204 

015204 000000 
015216 

5 015216 



015216 

6 015216 

7 015220 

8 015222 

9 015224 

10 01S226 

11 015230 

12 015232 
015235 
015240 
015243 
015246 
015251 
015254 
015257 
015262 
C15265 

13 015267 
015272 
015275 



015232 
015414 
015267 
015426 
015343 
015426 
101 
117 
103 
040 
122 
015 
130 
040 
040 
103 
116 
040 
110 



.EVEN 
.EVEN 
.TRPTAB 

STABLE OF POINTERS FOR TRAP DECODING 

TRPTAB: SCOPER 
TYPER 
OCTASN 
INSTRG 
INSTRE 
PARAMS 
SV05P 
RS05 
SCOPIR 



.BUFFER 



INBUF: 
.-.♦10 
TEMP: 
.-.♦10 

HOATA: 
.-.♦10 
.ERRTAB 



{BUFFERS FOR INPUT-OUTPUT 

0 

0 



ERRTAB: 



125 
040 
110 
105 
117 
012 
120 
040 
122 
000 
117 
105 
117 



124 

105 
117 
122 
122 
105 
040 
040 
105 

116 
103 
105 



Edl: 



{TABLE OF POINTERS TO ERROR fCSSAGES AND DATA 



Oil 
OTl 
D12 
DT2 
En3 
0T2 
.ASCIZ 



/AUTO ECHO £RRQR/<1S><12>/EXP 



REC/ 



EH2: 



.ASCIZ mm ECHOED DATA ERRQR/<IS><12>/CXP 



REC 



LIME/ 
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015300 


104 


040 


104 








015303 


101 


124 


101 








015306 


040 


105 


122 








015311 


122 


117 


122 








015314 


015 


012 


105 








015317 


ISO 


120 


040 








015322 


040 


040 


040 








015325 


040 


122 


105 








015330 


103 


040 


040 








015333 


040 


040 


040 








015336 


114 


111 


116 








015341 


105 


000 








14 


015343 


105 


103 


110 


En3: 


.ASCIZ 




015346 


117 


105 


104 








015351 


040 


104 


101 








015354 


<24 


101 


040 








015357 


105 


122 


122 








015362 


117 


122 


015 








015365 


012 


105 


130 








015370 


120 


040 


040 








015373 


040 


040 


040 








015376 


122 


105 


103 








015401 


040 


040 


040 








015404 


040 


040 


114 








015407 


111 


116 


105 








015412 


000 










15 










.EVEN 




16 


015414 


000002 






DTI: 


2 


17 


015416 


006 


002 




.BYTE 


6.2 


18 


015420 


013624 








SAVRS 


19 


015422 


006 


000 




.BYTE 


6.0 


20 


015424 


013622 






0T2: 


SAVR4 


21 


015426 


000003 






3 


22 


015430 


006 


002 




.BYTE 


6.2 


23 


015432 


013624 






.BYTE 


SAVRS 


24 


015434 


006 


002 




6.2 


25 


015436 


013622 








SAVR4 


26 


015440 


002 


002 




.BYTE 


2.2 


27 


015442 


013620 








SAVRS 


28 


015444 








.ENDCOO 






015444 


000000 






EHOCQO: 


0 


29 




000001 






.END 





L 



SEQ 90 



R0R/<15><12>/EXP REC LINE/ 



CZJHH-CO rUCRO V04.00 27-JUN-85 13:04:20 PAGE 36 3 

SYnBX TABLE 



aorcn; ' 


013225 


ERRTAB 


015216 


POPRO - 


012600 


AEACT 


013644 


ERTABO 


012554 


POPISP- 


005726 


BEGIN 


001306 


ESCAPE 


013602 


P0P2SP- 


022626 


BINURO 


013376 


EXITER 


012532 


PS 


177776 


BITX - 


000000 


FREEZl 


013604 


PUSHRO- 


010046 


BITOO - 


000001 


HALTS 


012512 


PUSHIS- 


005746 


BITOl • 


000002 


HILin 


013220 


PUSH2S- 


024646 


BIT02 - 


000004 


ICOUNT 


013606 


RBUF 


014246 


BIT03 - 


000010 


INBUF 


015160 


RCNTO 


014350 


BIT04 - 


000020 


INIFLG 


013632 


RCNTl 


014352 


8IT05 • 


000040 


INSTER- 


104404 


RCNTIO 


014370 


BIT06 - 


000100 


INSTR - 


104403 


RCNTll 


014372 


BIT07 - 


000200 


INSTRE 


013032 


RCNT12 


014374 


BIT08 - 


000400 


INSTR6 


012740 


RCNT13 


014376 


BIT09 - 


001000 


INSTRl 


012752 


RCNT14 


014400 


BITIO - 


002000 


INSTR2 


013040 


RCNT15 


014402 


BITll - 


004000 


K 


000020 


RCNT16 


014404 


BIT12 - 


010000 


KX 


000020 


RCNT17 


014406 


BIT13 - 


020000 


LAST 


013636 


RCNT2 


014354 


BIT14 • 


040000 


LIGHTS 


001002 


RCNT3 


014356 


BIT15 " 


100000 


LIMITS 


013152 


RCNT4 


014360 


CHRCNT 


013374 


LINACT 


013642 


RCNT5 


014362 


CLRALL 


013400 


LINBIT 


014450 


RCNT6 


014364 


DATA > 


000000 


LINE - 


000020 


RCNT7 


014366 


OATABP 


012S06 


LOBITS 


013224 


ROCTO 


014410 


OATAX - 


000000 


LOGICA 


012210 


RDCTl 


014412 


DEVAOR 


013222 


LOLin 


013216 


ROCTIO 


014430 


0H6A 


013546 


LPCNT 


013610 


ROCTll 


014432 


OHBAR 


01SSS2 


WCRLF 


014774 


R0CT12 


01M34 


0N8C 


017.550 


NDATA 


015204 


R0CT13 


014436 


OHBCR 


013554 


fCPASS 


015064 


H0CT14 


014440 


OHLPR 


013544 


MPFAIL 


014777 


M>CT1S 


014442 


OHNRC 


013542 


HQtl 


014770 


R0CT16 


014444 


OHRLVL 


013564 


MR 


015117 


l»CT17 


014446 


OHRVEC 


013562 


HREGAO 


014734 


R0CT2 


014414 


OHSCR 


013540 


MSG 


012754 


R0CT3 


014416 


OHSLR 


013560 


WTITLE 


014660 


R0CT4 


014420 


OHSSR 


013556 


MTSTPC 


015123 


R0CT5 


014422 


OHTLVL 


013570 


HVECTO 


014712 


R0CT6 


014424 


OHTVEC 


013566 


N ■ 


000001 


R0CT7 


014426 


OTl 


015414 


OCTASC- 


104402 


RESRE6 


012510 


0T2 


015426 


OCTASN 


013226 


RESTAR 


014546 


EHl 


015232 


PARAH - 


104405 


RESTRT 


012220 


En2 


015267 


PARAHS 


013042 


RESOS - 


104407 


E»13 


015343 


PARAni 


013072 


RETRN 


013600 


ENOCOO 


015444 


PARERR 


013146 


RS05 


0126S4 


EN0FL6 


013640 


PASARG 


012224 


SAVPC 


013630 


EOP 


012132 


PASCNT 


013574 


SAVRO 


013612 


EPRCNT 


013576 


PASTXT 


015077 


SAVRl 


013614 


ERRFLG 


013572 


PFAIL 


014510 


SAVR2 


013616 


ERRNSG 


012470 


PFTA8 


014650 


SAVR3 


01S620 


ERRCRS 


012350 










. ABS. 


015446 


000 









000000 001 
ERRORS DETECTED: 0 

VIRTUAL HEnORY USED: 19200 IMMOS ( 75 PAGES) 



L 



SEQ 91 



SAVR4 


013622 


TUR02 


014314 


SAVR5 


013624 


TUR03 


014316 


SAVSP 


013626 


TUR04 


014320 


SAVOSP- 


104406 


TUR05 


014322 


SCOPE - 


104400 


TURD6 


014324 


SCOPER 


012232 


TUR07 


014326 


SCOPEl- 


104410 


TYPOAT 


012472 


SCOPIR 


012332 


TYPE - 


104401 


SETALL 


013426 


TYPER 


012706 


SPACNT- 


013375 


TYPMS6 


0124 SO 


STACK - 


015644 


Tl 


001400 


START 


001004 


TIO 


003002 


STFLG 


013634 


Til 


003160 


SV05 


012622 


T12 


003336 


SV05P 


012614 


T13 


003514 


SUR 


001000 


T14 


003672 


SUOO - 


000001 


T15 


004050 


SUOl - 


000002 


T16 


004226 


SU02 - 


000004 


T17 


004404 


SU03 - 


000010 


T2 


001556 


SU04 - 


000020 


T20 


004562 


SU05 - 


000040 


T21 


004740 


SU06 • 


000100 


T22 


005176 


SUOB - 


000400 


T23 


005434 


SW09 - 


001000 


T24 


005672 


SUlO - 


002000 


T25 


006130 


SUll - 


004000 


T26 


006366 


SU12 - 


010000 


T27 


006624 


SU13 - 


020000 


T3 


001734 


SUM - 


040000 


T30 


007062 


SU15 • 


100000 


T31 


007320 


TBUF 


013646 


T32 


007556 


TOAT • 


000400 


T33 


010014 


TEMP 


015172 


T34 


010252 


TKCSR 


013530 


T35 


010510 


TK06R 


01SSS2 


TS6 


010746 


TPCSR 


013534 


n? 


011204 


TPOBR 


013536 


T4 


002112 


TRPOU 


012574 


T40 


011442 


TRPSRV 


012S62 


T41 


011700 


-mPTAt 


015136 


T5 


002270 


TMROO 


014310 


T6 


002446 


THROl 


014312 


T7 


002624 


TUROIO 


014330 


VECl 


001164 


TyROll 


014332 


VEC2 


001174 


TUdOU 


014334 


UROCNT 


015372 


TUROIS 


014336 


X 


OOOOOO 


TIA014 


014340 


XBIT - 


000000 


TyROlS 


014342 


XLINE - 


000020 


TIM016 


014344 


XN 


000042 


Tt«017 


014346 


Y • 


000011 



SvnBOL TABLE 



OYNAniC rcnORY AVAILABLE FOR 71 PAGES 

CZOHHC .BIN. CZOHHC . SEQ*CZOHHC . OOC.OWACA . MAC . CZOHHC .Pll 



